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EDITORIAL 


Chers membres, 


Je suis heureux de vous présenter ce nouveau JPC du mois d’avril. 


Ce numéro est peu plus gros que d’habitude. Il contient en effet un 
volumineux article que j’ai longtemps hésité à publier. 


Plusieurs raisons m'ont amené à le faire. La première est que la raison 
d’être de notre Club est de faire profiter chacun de la connaissance et 
des réalisations de l’autre. La seconde est que ce Lex a demandé 
environ 3 mois à Janick et à moi-même pour sa conception. Voir tant 
de travail distribué librement est peu courant actuellement. Gardons 
l'esprit de générosité qui a fait la réputation de PPC. Troisièmement, 
les amateurs d’assembleur trouveront de quoi étudier. Nous avons 
particulièrement soigné les commentaires. Enfin, j'espère que tout le 
monde trouvera là un outil indispensable. 


Cette décision nous a amené à augmenter le volume de ce Journal. 
Vous pourrez ainsi trouver vos rubriques habituelles, et même une 
nouvelle colonne consacrée au HP-28C. 


Bonne lecture, et bon amusement... 


Pierre David 
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PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC 
Paris se réunit une fois par mois, en plein 
coeur de Paris. Amenez votre matériel, votre 
bonne volonté et vos idées ! Plus vous en 
apporterez, et plus vous en trouverez chez vos 
collègues de PPC. 


Ces réunions se déroulent de manière très 
libre, aucun ordre du jour, discussion ou autre 
n'étant imposé. Un membre du bureau est 
toujours présent. Ainsi, si vous désirez 
remettre votre article tout frais au Journal, si 
vous avez des suggestions à faire, si vous 
voulez vous procurer des anciens numéros de 
JPC, ce sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un 
seul instant, venez nous rejoindre tous les 
premiers samedis de chaque mois (sauf en 
période de vacances scolaires) au : 

Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 

75010 Paris 


et en montant au deuxième étage, vous 
entendrez des éclats de rire et des discussions 


passionnées vers la salle 215. Attention, 
toutefois, de venir entre 16 et 19h. 
Pour l'accès en métro, trois possibilités 


s'offrent à vous : 

- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté 
pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en 
avant première lors de ces réunions. A bon 
entendeur, salut ! 

Les dates des prochaines réunions sont : 
Samedi 4 avril 1987 


Samedi 16 mai 1987 
Samedi 6 juin 1987 


Pierre David (37) 
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AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez 
pas sous quelle forme "l’équipe de rédaction" 
souhaite recevoir votre prose. C’est ici que se 
trouvent les réponses à vos questions. 


Dans la mesure du possible, vous devez nous 
envoyer vos écrits sur support magnétique 
(carte, cassette ou disquette). Soyez sans 
crainte, nous vous retournerons vos biens 
après COpie. 


Si vous ne pouvez pas utiliser de support 
magnétique, Ou ne pouvez vous rendre aux 
réunions, alors et alors seulement faites le sur 
papier. 


Que ce soit sur une feuille de papier, ou sur 
support magnétique, ne dépassez pas 50 
Caractères par ligne. 


Pour nous épargner du travail, insérez dans 
votre texte les commandes de formattage 
suivantes (et non les commandes du formatteur 
HP) : 


"*" centre un titre, par exemple : 
ATITRE 


"" (CHRS(92)) marque le début et la fin d’un 
paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de 
vos idées qui, même si vous en doutez, 
intéressera certains des membres du Club. 
Surtout si vous vous sentez débutant. Les 
articles pour débutants écrits par des débutants 
sont ceux qui manquent le plus. Fin de 
paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le 
jeu de caractères Roman8. Les possesseurs de 
HP71 utiliseront les redéfinitions de touches 
ci-dessous, ainsi que le fichier CHARLEX 
listé dans le coin des Lhex en fin de journal. 


Jean-Jacques Dhénin (177) 


DEF KEY ‘fW', CHRS(197): (é) 
DEF KEY 'fE', CHRS(193); (&) 
DEF KEY :fR', CHRS(201); (è) 
DEF KEY 'fY', CHRS(203): (ù) 


DEF KEY ‘fU', CHR$(195); çà) 
DEF KEY 'fl', CHR$(209); (5) 
DEF KEY 'fO0', CHR$(194); (ô) 
DEF KEY 'f/!, CHR$(92); (\) 
DEF KEY 'fA', CHR$(192); (â) 
DEF KEY 'fS', CHR$(200); (à) 
DEF KEY ‘fD', CHR$(205); (ë) 
DEF KEY 'fJ', CHR$(207): (ü) 
DEF KEY 'fK', CHR$S(221); (i) 
DEF KEY ‘f*1, CHR$(124); (1) 
DEF KEY 'fC', CHR$(181); (ç) 


COURRIER DU COEUR 


PPC-Paris 
56 rue J.J. Rousseau 
75001 Paris 


Vend : 
Interfaces vidéo HP82163B neuves (dans leur 
boîte, avec documentation) : 600 F seulement. 


Des lots de 100 cartes magnétiques pour 
HP-4]1, HP-67, HP-97 et même HP-65 : 100 F 
seulement. 


Des lecteurs de cartes magnétiques HP82400A 
pour HP-71 : 500 F pièce. 


Shyam JHA 
HP Grenoble 
Tél: 76 62 54 54 


Vend : 
HP-75C + module 8 Ko Ram : 
débattre. 


2500 F à 


Pierre David 

33 Bd St Martin 
75003 Paris 

Tél: (1) 48 87 68 93 


Vend : 

Imprimante 80 colonnes HP-IL HP82905B + 
papier : 2500 F. 

Convertisseur HP82166A : 1000 F. 


COURRIER _ : 
DES LECTEURS 


Thierry Besançon 
9 rue Champ Chapelle 
77120 Coulommiers 


Devant découvrir à quoi servaient les 
fonctions du Lex DESLEX (je ne possède pas 
tous les JPC), je découvris que le 
comportement de la fonction PAINT était 
pour le moins bizarre. 


Faites donc : 

10 FOR 1=0 TO 120 

20 C$=STR$S(PAINT(1,1,2)) 
30 NEXT 1! 


Cela trace une ligne sur l'écran de mon 
HP-71B ! 


Faites aussi : 

10 DISP ! :!: 

20 INVERSE 

30 FOR 1=0 TO 120 

40 C$=STRS(PAINT(O,1,2)) 
50 NEXT 1! 


Cela éteint une partie de l’écran. 


Le premier paramètre détermine donc si l’on 
allume (1) ou si l’on éteint (0) un point. Les 
deux autres désignent les coordonnées d’un 
point de la matrice écran. 


Alors bogue ou pas bogue ? Quoiqu'il en soit 
je suggère de ne rien modifier car l’on 
bénéficie ainsi d’une fonction graphique 
"bricolée", mais assez efficace. 


Thierry Besançon (292) 


Réponse du Docteur JPC : 
De quelle bogue s’agit-il ? 


La fonction PAINT parue dans JPC 24 est 
destinée à allumer ou éteindre des points sur 
l'écran graphique du HP-71. En retour, elle 
donne l’état antérieur du point (0 : éteint, 1 : 
allumé). À ma connaissance, il n’y a ni bogue, 
ni "bricolage". 


JPC 43 Page 3 


Pendant que j’y suis, je tiens à préciser que le 


programme contient une instruction 
STR$ inutile : il suffit de mettre : 
C=PAINT(….. 


Rappelons que les anciens numéros de JPC 
sont en vente auprès du Club. 


Janick Taïllandier (246) 





NOUVEAU PRODUIT 


Mémoire à bulle 


La firme australienne COMSYS vient de lancer 
sur le marché une unité de stockage HP-IL 
utilisant des mémoires à bulle. 


Compatible avec le lecteur de cassettes 
numériques HP82161A, elle fournit 128 Ko, et 
se compose d’un lecteur (8.5x11x19 cm, 2 kg) 
et de cassettes de mémoire amovibles. 


La mémoire est non volatile, l'unité est 
alimentée par batteries rechargeables, et les 
temps de transfert sont comparables à ceux de 
l’unité de disquettes HP9114A/B. 


Ce lecteur est conçu pour des utilisation en 
environnement hostile. Nous ne connaissons 
malheureusement pas le prix de ce bel 
appareil. 


COMSYS Australia Pty Ltd 
P. O. Box 153, 

Subiaco W.A. 6008 
Autralie 


Nouveau module pour le HP-71 


Des  indiscrétions en provenance des 
Etats-Unis signaleraient la sortie prochaine 
d’un module pour HP-71. Ce module aurait 
pour fonction d’émuler un ordinateur 
MS-DOS. Logé dans le port 1 du HP-71, il 
contiendrait, outre un microprocesseur 80C86, 
une rom BIOS compatible PC. Ce système 
MS-DOS cohabiterait avec le système d’origine 
du HP-71, un peu comme Forth et Basic. 
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Le prix envisagé serait d'environ $ 290, ce qui 
semble relativement peu élevé compte tenu de 
la possibilité d'utiliser tous les logiciels 
Standard du marché. Ceux-ci sont déjà 
souvent disponibles sur disquettes 3 pouces et 
demi. 


Regrettons la juxtaposition d’un système aussi 
archaïque que MS-DOS et d’un système aussi 
bien conçu et aussi souple que celui du 
HP-71]. Unix aurait été plus opportun. 





HP-28C 


P. David Développez vos expressions 6 
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DEVELOPPER 


Le HP-28C représente un saut extraordinaire 
dans le domaine du calcul de poche. Les 
possibilités apportées par le calcul symbolique 
ouvrent bien des horizons. 


Mais si vous avez pratiqué un tant soit peu 
cette nouvelle caractéristique, vous avez pu 
constater que développer des expressions 
n’était pas toujours chose facile. 


En effet, 1il faut passer par les touches 
[CEXPAN] €@t  [COLCTJ du menu  [ALGEBRA]. 
Développer une expression du type (a+b)$ ne 
nécessite pas moins de 5 appuis sur 
[EXPAN] avant d'exécuter le fIcoLcr] final qui 
exprimera le résultat dans une forme 
compréhensible. 


Or, ces 5 appuis sont pénibles. La fonction 
[EXPAN] est relativement lente. De plus, il faut 
surveiller attentivement l'affichage pour voir 
si une expression est «collectable» ou non. Et 
les formes affichées sont quelquefois difficiles 
à analyser. 


Ces réflexions m'ont conduit à la conception 
d’un petit programme, qui développe une 
expression en une seule touche. 


Le principe est simple. L'expression est 
développée par [LEXPAN] jusqu’à trouver une 
forme stable, c'est à dire qui ne soit pas 
modifiée par les [EXPAN] successifs. Il s’agit en 
quelque sorte d’un «point fixe»... Arrivé à ce 
stade, ce petit programme exécute [COLCT] pour 
ramener l'expression à une forme 
compréhensible. Voilà. C’est tout ! 


« WHILE l'exp. est au sommet de La pile 

DUP dupliquer l'expression 
EXPAN développer 
DUP ROT (exp. dév., exp, exp dév.) 
SAME exp développée = exp précédente ? 
NOT REPEAT Non : sortir 

END recommencer avec exp. développée 

COLCT simplifier 


» 


Pour l'utiliser. rentrez ce programme (sans les 
commentaires, bien sûr), sur une seule ligne 
dans votre HP-28C. 


Mettez-le alors dans une variable, par exemple 
DEV. Faites : 
DEV [STO] 


Il est à présent stocké dans 
Utilisons-le sur (a+b}° : 

'A+B [ENTER] 

3 [°) 

[USER] [DEV] 


le HP-28C. 


Après environ 40 secondes, votre HP-28C 


affiche : 
13*A*B"2+A"3+3*A"2*B+B 131 


Voilà, à vous de faire le reste... 


Pierre David (37) 


Qu: parle de mise. en ture 











HP -41 


G. Toublanc Fractionnez aussi 8 
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- FRACTIONNEZ AUSSI LE PROGRAMME 
Une fois n’est pas coutume : transposer un 01*LBL "VALF" valeur de N/D et delta 
fichier Lex (assembleur) HP71 en fichier pour 02 RCL Z X=n 
HP41. Et pourquoi pas ? 03 X<>Y X=D 
04 / X = N/D 
Les possesseurs de HP41 profiteront de l’étude 05 FIX 9 
faite pour HP71 : approximation d’un nombre 06 STOP affichage valeur décimale de La 
décimal par une fraction. Les tout débutants y fraction en FIX 9 
trouveront aussi leur compte : le programme 07 ABS X = ABS(N/D) 
est commenté pas à pas et la programmation 08 RCL 05 X = ABS(n) 
est des plus simples (pas de programmation 09 - X = ABS(N/D) - ABS(n) = delta 
synthétique). 10 SCI 2 
11 RTN affichage delta en FIX 2 


Pour l'algorithme employé, voyez l’article 
réfractaire dans JPC 42. 


12*LBL MAFRC'! option approximations X=2a Y=n"n 


13 CF 00 repère approximations 
MODE D'EMPLOI 14 GTO 02 saut routine commune à FRAC et PFRC 
Soit n le nombre décimal approximé par la 15*LBL "FRAC" précision implicite X=n 
fraction N/D 16 ENTER” sauve n en Ÿ 
17 ABS X = ABS(n) 
FRAC 18 LOG 
précision implicite 1078 + exposant de n 19 INT X = exposant de n 
20 8 
entrée : n en X 21 - exposant de n - 8 
sorties : chaîne alpha, N en Z, D en X 22 GTO 01 saut routine commune à PFRC 
PI XEQ'"FRAC'! -> 104348/33215 23*LBL "PFRC" option précision X =p Y=n 
24 CHS X = -p 
PFRC 
précision optionnelle 107P 25*LBL 01 départ commun à FRAC et PFRC 
entrées : p en X. n en Ÿ 26 10"X X = 10*(-p) : précision ou 
sorties : dito FRAC 10*(-8 + exposant de n) : précision 
flottante 
PI ENTER 2 XEQ"PFRC" -> 22/7 27 SF 00 repère précision 
AFRC 28*LBL 02 départ commun à FRAC , AFRC et PFRC 
ordre d’approximation optionnel : a 29 X<>Y X=n Y = précis. où approxima. 
entrées : a en X,n en Ÿ 30 STO 04 n -> RO4 
sorties : dito FRAC 31 ABS 
32 STO 05 ABS(n) -> RO5 à partir d'ici 
PI ENTER 1 XEQM"AFRCON -> 3 calculs avec valeurs absolues 
PI ENTER 2 XEQ"AFRC" -> 22/7 33 INT 
PI ENTER 3 XEQ"AFRC" -> 333/106 34 STO 03 No = INT(n) -> RO3 
35 RDN 
VALF 36 0 
après FRAC, AFRC ou PFRC renvoie la 37 STO 00 D-1 = O0 -> ROO 
valeur décimale de N/D en FIX 9 puis delta = 38 RDN 
N/D - n'en SCI 2 39 1 
40 STO 01 Do = 1 -> RO1 
PI XEQ"FRAC"! -> 104348/33215 41 STO 02 N-1 = 1 -> RO2 
42 RDN 
XEQMVALFN -> 3,141592654 R/S -> 0,00 00 43 LASTX X = ABS(n) = Ho Y=poua 
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44*LBL 
45 FS? 
46 GTO 
47 DSE 
48 GTO 


49 GTO 


50*LBL 
51 RCL 
52 RCL 
53 / 
4 RCL 
JE 
56 ABS 
57 R° 


58 X<>Y 


03 
00 
04 
r 

05 


06 
04 
03 
01 


05 


59 X<=Y? 


60 GTO 
61 RDN 
62 RDN 


63*LBL 
64 FRC 


65 X=07? 


66 GTO 
67 1/X 
68 RCL 
69 INT 
70 RCL 
71: 

72 RCL 
73 + 

74 X<> 
75 STO 
76 RDN 
77 RCL 
78 INT 
79 RCL 
80 * 

81 RCL 
82 + 

83 X<> 
84 STO 
85 RDN 
86 GTO 


87*LBL 
88 RCL 


89 SIGN 


90 RCL 
71” 


06 


05 


06 


03 


02 


03 
02 


01 


00 


01 
00 


03 


06 
04 


03 


92 CF 28 
93 CF 2 
94 FIX 0 


95 CLA 


96 ARCL X 


97 1 


départ de boucle de tests et calcul 
test précision ? 

oui saut test précision 

non alors compteur approxi. décrém. 
valeur compteur non nulle alors on 
continue dans La boucle 

dernière approximation -> sortie 


test précision 


X = Ni 

X = Di 

X = Ni / Di 

X=n 

X = ABS(Ni/Di - n) = delta 

X = précision 

X = delta Y = précision Z = Hi 


delta <= précision ? 

oui alors sortie pour résultat 
non alors on réordonne La pile 
X = Hi Y = précision 
calcul de Ni+1 et Di+1 X = Hi 
Hi sans partie fractionnaire ? 
oui alors sortie et résultat 

X = Hi+1 

duplique Hi+1 


X = ai+1 

X = Ni 

X = Ni-1 

X = ai+1*Ni + Ni-1 = Ni+1 
X = Ni Ni+1 -> RO3 

Ni -> RO2 

X = Hi+1 

duplique Hi+1 

X = ai+1 

X = Di 

X = Di-1 

X = ai+1*Di + Di-1 

X = Di Di+1 -> RO1 

Di -> ROO 

X = Hi+1 Y = précis. ou approxi. 


retour au départ de boucle 


résultat et affichage 

X=n 

récupération du signe de n 

X = ABS(N) 

X = N et son signe 

suppression des séparateurs pour 
FIX 0 


N -> alpha 


98 RCL 01 
99 X=Y? 
100 GTO 07 

101 "y" 
102 ARCL X 


103*LBL 07 
104 AVIEW 
105 END 








X = D 
D = 1 ? 
oui alors on ne l'affiche pas 


D -> alpha 


affichage de N/D ou N siD=1 


Guy Toublanc (276) 
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Léonard de Vinci {1452-1519} pa ) 
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HP-75 
E. Gengoux Le PMS du HP75 12 
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LE P.M.S. DU HP-75 
(Port Module Simulator) 


Ce mois-ci, nous vous présentons un 
périphérique très, très peu connu, et très 
spécialisé : c’est une mémoire particulière, qui 
simule un module d'application externe 
branché dans l’un des trois ports du HP-75. Il 
peut se charger, mais ne constitue pas une 
extension de la mémoire puisqu'on ne peut ni 
l’éditer, ni y lire ou y écrire des données, mais 
simplement y copier des programmes complets 
à partir de la mémoire normale, et les exécuter 
comme s'ils venaient d’un module 
d'application. 


L'appareil est indispensable pour développer 
des modules d'application : Rom masquées à 
peu près hors d’atteinte, ou Eprom à présent 
disponibles et qui sont la seule solution 
économique pour des toutes petites séries. En 
effet, contrairement au 71 pour lequel c’est 
tout simple (il suffit d’un port indépendant et 
de l’un des deux Lex ROMCOPY ou 
EPRMCOPY), pour le 75, il faut passer par 
un accessoire spécial. 


L'appareil coûte assez cher (HP82713A, 
$420.00 aux USA, 4795 Francs HT au tarif 
HP). Il est livré avec un Lex nommé 
"PMSCMDS", et est vu du 75 comme deux 
Rom distinctes de 8 Ko chacune. On peut 
donc connecter autant de PMS qu’il y a de 
ports disponibles, soit de quoi créer ou simuler 
un module de 8, 16, 32 ou 48 Ko. Il est 
alimenté par le 75, mais contient une pile au 
lithium qui assure la sauvegarde du contenu 
quand le PMS est débranché du 75. Cette pile 
dure assez longtemps, mais elle est soudée sur 
la carte mère : il faut donc ramener l'appareil 
au service après vente HP pour la changer, eh 
oui | 


Le principe d'utilisation est le suivant: on crée 
un programme Basic (moins de 8 Ko) en 
mémoire, puis on le copie dans une page du 
PMS (chacune peut en contenir plusieurs, dans 
la limite de 8 Ko). Dès lors, après avoir purgé 
le programme de la mémoire (pour éviter tout 
conflit), il peut être exécuté et n’encombre 
plus votre précieuse mémoire. Mais il ne peut 
plus être n1 listé, ni édité : pour ce faire, il 
faut à nouveau le copier en mémoire. C’est 
donc très simple. pour du Basic ; pour les 
Lex, il y a quelques restrictions (voir plus 
bas). 
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LES MOTS-CLES DU LEX "PMS" 


L’exécution des programmes dans le PMS ne 
nécessite pas la présence du Lex. Par contre, 1l 
est absolument nécessaire pour pouvoir 
charger l'appareil ou modifier son contenu. Il 
comprend 9 mots-clés, dont cinq extensions de 
mots existants : 


BUILD ":ROMx",<romid> [,"<lexname>!] 
CAT "[<filename>] :ROMx!" 

CHECKSUM (#:ROMx") 

COPY "<fijlename>" TO "<filename>" 
de PMS vers Ram 


COPY "<filename>" TO "[<filename>] :ROMx" 


de Ram vers PMS 


COPY fALL:ROMx" TO "<filename>!! 

page complète 8 Ko PMS vers Ram, sous un 
nom unique ("image de Rom") 

PRIVATE "<fi lename> : ROMx!' 

PURGE 1:<filename>:ROMx"! 

ROMAVAIL (":ROMx!") 

ROMID(1:ROMx!!) 

ROMSIZE ("<RAM file>") 


Les pages de 8 Ko sont identifiées par un nom 
d'unité en fonction du port dans lequel elles 
sont branchées et, s’il y a plusieurs PMS, de 
leur ordre en partant de la gauche. Dans le cas 
le plus courant, on a seulement "ROMA" et 
“"ROMB". 


Avant de pouvoir être utilisé, le PMS doit être 
initialisé. Il faut pour cela donner un numéro 
de “romid" (-32767 à -257 ou +3 à +32767), en 
prenant garde à ne surtout pas utiliser un 
numéro de module existant (par exemple, 
VisiCalc, Rom Math, Rom  I/O ou 
Text-Formatter.….), sous peine de plantage ! 
HP recommande soit de se faire allouer un 
numéro de Rom par leurs soins (c’est long...), 
soit d’utiliser la plage [100,199]. 


Ensuite, mettre en mémoire du 75 le fichier 
Lex qui sera implanté au cours de 
l’initialisation. C’est ici que ça se corse : vous 
n'avez droit qu'à un seul Lex par page de 8 
Ko, et en plus, certains Lex, ou bien ne seront 
pas chargés, ou bien bloqueront le 75 ! C’est le 
problème des Lex “non-ROMables", avec 
diverses finesses liées à l’architecture interne : 
on m'a dit que ça avait gêné même les 
développeurs de chez HP (ceux de VisiCalc...), 
et on voit bien alors qu’il est impératif de tout 
bien tester avant de faire brûler une Eprom ! 


Une fois les images de Rom constituées et 
testées, avant de les copier sur cassette pour 
les faire graver en Eprom, il faut déterminer 
le "checksum" de chacune des pages, au moyen 
de l’ordre approprié. ROMAVAIL vous permet de 
savoir à tout moment combien il vous reste de 
place, et RoMSIZE combien un fichier Basic ou 
Lex demandera de place dans le PMS, c’est un 
peu plus qu’en mémoire. 


Un sujet que le cas des Lex a permis 
d’entrevoir, ce sont les limitations et les bugs 
de l’appareil. Certains sont bien indiqués dans 
le manuel (commandes VER$ et MARGIN interdites 
dans un fichier PMS), mais il y en a bien 
d’autres, en particulier avec la Rom 1/0. Voici 
donc une première liste, que l'expérience a 
permis de découvrir : 


- les tableaux de chaînes (Rom I/O) 
perturbent les allocations de variables du 75 
(erreur 127 : "bad parameter value" et plantage 
à peu près garanti |) 

- EXIT (toujours la Rom I/O !) provoque un 
blocage : la "pile de retour" ne suit pas ! Il 
vaut donc mieux sortir "salement" de la 
boucle, sans EXIT.. 


Ceci est sans doute à rapprocher de certaines 
incompatibilités signalées entre modules 
VisiCalc et I1/O (ce dernier doit toujours être 
mis dans un port plus à gauche que VisiCalc), 
et entre Pod et module 1/0. Les géniales 
fonctions avancées de gestion de fichiers ne 
peuvent pas être utilisées avec le Pod... 


Parmi les Lex exploitables sans piège, 
signalons DISPLEX (VSoft) et HMSLEX (J.Y. 
Hervé), plus la Plotter-Rom de Corvallis 
(#03371-75-0) ; dans les "booby trap Lex", il 
y a MASSLEX et MADLEX (dommage, 
l'accès direct à la disquette en Rom, c'était 
tentant !), plus DATELEX (cas bizarre : une 
seule fonction marche bien Dconv), les autres 
bloquent le 75... N'espérez pas charger 
PEEKPOKE ou HELP, c’est impossible ! 


J'ajoute que, ni la version "b" des Rom 
système du 75, ni celle de "PMSCMDS" 
n’apportent de solution. Mais je ne voudrais 
pas vous décourager, et je vous propose de 
vous dire un mot pour finir de ces fameuses 
Eprom 32 Ko de chez CMT. 


Elles sont disponibles chez EduCALC 
(#75-669, prix 5229.95, auquel il faut rajouter 
$60.00 pour la programmation chez CMT), ou 
en France chez COSERM (réf. CMT75-32KE, 





© 


prix public 3719 F HT, plus programmation 
600 F). Compte tenu à la fois du faible 
marché du 75 et des particularités de brochage 
de la bête, seul CMT assure la programmation. 
Il faut donc lui envoyer (via votre fournisseur) 
vos logiciels, sous forme des n sauvegardes des 
pages de PMS (coPY ALL:ROMx To.., fichiers de 
type "R" come "ROM"), chacun acompagné de 
son catalogue (sur papier) et de son checksum. 
Vous postez cassette ou disquette et lettre 
d'accompagnement, et. je vous en dirai plus 
lorsque j'aurai reçu mon Eprom. A bientôt! 


Eric Gengoux (108) 


K 
A 





JPC 43 Page 13 


—————————— 


L Si PO ME EPA 


mesure 10pour JON. Cytcui dessin 
Aue Copernic iacces autoroute Lyon - Marseille) 


Z 78 73 02 88 - Teiex LEPONT 380034 F PR PI NO LC ERP EN NS 
. ex } 
F 38670 CHASSE SUR RHONE - BP. N 11 


UNE EXCLUSIVITE LE PONT EQUIPEMENTS ! 
———_—__——_—_———— 


TOPO 71 B 





Un logiciel TOPOGRAPHIE 
déve loppé sur l'ordinateur portable HP 71 B 


La solution HP 718 


L'ordinateur HP 71 B, muni d'un langage BASIC résident, associe la puissance 
informatique aux dimensions d'un calculateur de poche. 


Un_ système de traitement sophistiqué et évolutif 


Grâce à la boucle d'interface HP.IL, le HP 71 B 
capable d'imprimer, de tracer, 
des informations et de 
table à dessiner). 


devient un véritable système 
de stocker et de récupérer des données, d'afficher 
gérer des périphériques (mémoire de masse, imprimante, 


LE LOGICIEL : TOPO HP 71 B 
ms, 


Ce logiciel résout les problèmes Classiques de topométrie : 
Programme calculs topographiques _: TOPO 1 


- création de fichier points, 
- Calculs des points de détails en Fi FR À 


- Calcul et compensation de polygonales, | 
- Calcul d'intersections . 


- Calcul de relèvement sur 3 points, 

— raccordements circulaires, 

- Calculs de rayonnement pour implantation, 
- Calcul de surfaces, .. 


Programme gestion de fichiers : TOPO II 
Ce programme permet de gérer les coordonnées des points calculés. 


- création de points, 

- listage des points, 

- destruction de points, 
- Copie de points, 

- rotation de points, 

- translation de points, 
- facteur d'échelle. .. 


Programme utilisateur : TOPO III 


Ce programme vous permet d'utiliser parallèlement au logiciel TOPO 71 un programme 
de votre choix. 


CONFIGURATION DE BASE : 


- Ordinateur portatif HP 71 B ................ ose 4 988,00 Frs HT 
- Module 4 Ko HP 82420 ..... crosse césssess ss... 704,50 Frs HT 
- Lecteur de cartes HP 82400 ........................ 1 604,00 Frs HT 


Logiciel TOPO 71 B, disponible sur cartes 
magnétiques, valeur 1 950,00 Frs H.T., actuellement 


promotion jusqu'au 30.11.86, offert gracieusement Gracieusement 
7 296,50 Frs HT 





Option cassette : 


- Ordinateur portatif HP 71B ......sscsssssesese.ese A 988,00 Frs HT 
- Module 4 Ko HP 82420 ................. sessosssssess 704,50 Frs HT 
- Interface HP.IL HP 82401 ............ ssssssosseuss 1 184,00 Frs HT 
- Unité de cassette HP 82161 ........................ S 351,00 Frs HT 


- Logiciel TOPO 71 B, disponible sur cassette 
valeur 1 950,00 Frs HT, actuellement promotion 


jusqu'au 30.11.86, offert gracieusement Gracieusement 


12 227,50 Frs HT 
PONS PARIS RRE EE EN 
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FINPUT 


Le HP-71 est un ordinateur de poche dont la 
puissance n’en finira pas de nous étonner. 
Malheureusement, certaines de ces possibilités 
sont peu documentées ou quelquefois lourdes à 
utiliser. 


Il en est ainsi des champs protégés. Le manuel 
d'utilisation les confine dans un coin de la 
page 237, dans une région que beaucoup 
d’entre nous considèrent comme ténébreuse. 


En quelques mots, les champs protégés servent 
lors d’un INPUT Ou LINPUT à isoler des caractères 
et empêcher l'utilisateur du programme de les 
effacer ou d'écrire autre chose à la place. 


À titre d'exemple, supposons que nous ayons à 
entrer une date. L’affichage devra avoir 
l’aspect suivant : 


Date: Dy/Mo/Yr 


L'utilisateur devra remplacer les seuls 
caractères by (Day), Mo (Month) et Yr (Year) 
par leur valeur. Les autres ne doivent pas 
changer. Si vous êtes courageux, voici le 
programme pour atteindre ce but : 


100 E$=ESC$("<n) ! Eteint Le curseur 

110 AS=ESC$(">1) ! Allume Le curseur 

120 D$S=AS&"JrMRESN/NLASENMONRESEN /NLASENY rit 
130 DISP E$&"Date: "&D$&ES: ! Affichage 

140 INPUT MM:1$ 1 Introduction de La date 


Si vous n'avez pas PRINTLEX dans votre 
machine, il faut remplacer les deux lignes 100 
et 110 par : 


100 ES=CHR$(27)8&"<t 
110 AS=CHR$S(27)&">1 


Première observation ce programme est 
illisible. Malgré les commentaires, on a du mal 
à comprendre ce qu'il fait. 


Deuxième observation : si vous essayez ces 
quelques lignes, vous verrez la lenteur 
affligeante de l’affichage du masque de saisie. 
Ca ne fait pas très sérieux... 


Troisième observation : 
appuyez sur [LATIN]. Le mois s’efface, et le 
Curseur revient au début. Appuyez une 
deuxième fois sur tATTN]. Rien ne se passe. La 
touche LATIN] est inactive, il n’y a aucun 
moyen d'arrêter le programme. La seule 
solution est d'appuyer sur [ENDLINEJ. Et votre 
date est validée telle quelle, malgré votre 
volonté d’arrêter. Fâcheux ! 


rentrez une date, puis 


Quatrième observation rentrez la date, et 
continuez à rentrer des caractères 
supplémentaires. Vous voyez que rien ne vous 
en empêche. Comment y remédier ? 


Le problème vient de ce qu'aucun caractère 
n’est plus protégé après la date. Le HP-71 n’a 
donc plus aucune raison de bloquer le reste de 
l'affichage. Pour y arriver, il faut calculer : 
nous devons afficher un masque de 14 
caractères, et les autres doivent être tous 
protégés. Les autres, cela fait 96-14, c'est à 
dire 82 espaces à protéger. Eh bien, allons-y, 
ajoutons quelques lignes : 


121 DIM S$[82] 
122 S$=""n 

123 FOR 1=1 TO 82 
124 S$=S$8&n 1" 

125 NEXT I 


Si vous avez STRINGLX, 
simplifier en ne tapant que : 


vous pouvez 


121 DIM S$[(82] 
122 S$S=RPT$S(" 1,82) 


Puis, remplaçons la ligne 130 par : 


129 WIDTH INF 
130 DISP ES&'Date: "S&DS&ESESS; 


A l'exécution, 1l y a un clignotement 
indésirable de l'affichage, puis tout s'affiche. 
C’est merveilleux, on ne peut rentrer de 
caractère au-delà de la date ! 


Mais il y a un nouveau problème. Appuyez 
sur la touche t->] après la deuxième année : 
vous voyez l'affichage se dérober sur la 
gauche. Mieux encore : appuyez sur fg]l->]. 
Après un temps relativement long, l’affichage 
se vide. Curieux, n’est ce pas ? 


Bref, on le voit, l’utilisation des champs 
protégés est une possibilité fantastique, mais 
mal servie par : 





- un manuel confus et incomplet, 
- une lourdeur d'utilisation sans égale, 
- et un comportement "sale". 


L'idée nous vint donc logiquement de créer un 
ordre permettant d’exploiter à fond cette 
caractéristique du HP-71, en simplifiant la 
tâche du programmeur. Voici donc le résultat 
de cette cogitation, nous avons nommé : FINPUT. 


UTILISATION DE FINPUT 


Voici comment utiliser l’ordre 
FINPUT (Formatted INPUT). Notre principale 
préoccupation lors de la conception de ce Lex 


a été la facilité d’utilisation pour le 
programmeur. Toutefois, FINPUT permet de 
faire simplement des choses extrêmement 


complexes. 


FINPUT mono-ligne 


Dans sa forme la plus simple, FINPUT est une 
extension de l’ordre LINPUT pour manipuler 
facilement les champs protégés. 


servi 
forme 


Basic qui nous a 
résume alors à la 


Le programme 
d'exemple se 
suivante : 


100 DIM 1$1[6] 
110 FINPUT 1$,'"Date: Dy/Mo/Yr'","6P2UP2UP2UP',A 


Dans cet exemple, nous pouvons voir que : 


- ]I$ est la chaîne de destination. Elle doit être 
créée lorsque l’exécution de FINPUT débute. 


- Ensuite, vient la «chaîne de message». C’est 
ce qui apparaîtra sur l’écran. Nous remarquons 
que tout v est, que ce soit protégé ou non. 


- Après, nous avons la «chaîne de protection». 
Examinons de près ce qu’elle contient : le 
ép signifie que les six premiers caractères sont 
protégés (Protected). Le 2U précise que les 
deux caractères suivants sont «non protégés» 
(Unprotected). Vous avez compris, le P indique 
ensuite que le caractère suivant est protégé, et 
ainsi de suite. Le Pp final signifie que le reste 
de l'affichage est protégé. Il n’y a donc pas 
besoin de mettre 82P. 





- Enfin, nous avons la «variable attn». En 
sortie, elle vaudra 0 si la touche [ATITN] à été 
utilisée pour sortir de FINPUT. 


Comme vous pouvez le constater, le problème 
de l’utilisation des champs protégés est 
simplifié à l'extrême. Utiliser FINPUT est 
maintenant devenu un réflexe. Mais, ce n’est 
pas tout ce qu’apporte FINPUT. Parmi ses 
nombreux avantages, nous pouvons citer : 
Simplification de la spécification de la 
protection : 

Comme nous l’avons vu. la spécification des 
champs protégés est extrêmement simple. 


Gestion de la touche tATTN] : 

Lors d’un FINPUT, la touche [ATIN] sert une 
première fois pour revenir à l'affichage par 
défaut (la «chaîne de message»). La deuxième 
fois, LATIN] sort de FINPUT en mettant la 
«variable attn» à 0. Le programme n’est pas 
interrompu, et il est facile de gérer la touche 
[ATINJ. Un simple test : 

IF NOT A THEN .…. 

règle le problème de cette touche. 


Gestion des touches t->1 et Iglt->1 : 

Essayez, vous verrez ! Les touches 1t->] et 
{g1t->1] n’ont plus l'effet désagréable qu'elles 
avaient lors du premier exemple. 


Gestion des «variables courtes» : 

Dans l’exemple ci-dessus, si vous aviez déclaré 
la variable I$ à moins de 6 caractères, mettons 
3, vous n’auriez pas pu en rentrer plus de 3. 
FINPUT met cette sécurité supplémentaire. Si 
vous écrivez votre programme avec FINPUT, 
vous  réduisez les chances de “String 
Overflow" ! 


FINPUT sans chaîne de protection 


Dans bien des cas, il n’v a pas besoin d’une 
gestion sophistiquée de l'affichage. Par 
exemple, pour rentrer le nom d’un fichier. 
Avec INPUT, vous feriez : 

100 INPUT “Fichier: ":F$ 


Mais, un nom de fichier en mémoire ne peut 
faire plus de 8 caractère. Avec FINPUT, vous 
ferez : 


100 DIM FS$[8] 


110 FINPUT F$,"Fichier: ",A 
120 IF NOT À THEN END 
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Et voilà, le tour est joué ! Quoi de plus 
facile ? Vous ne pouvez pas rentrer plus de 8 
caractères, et si vous désirez vous rétracter en 
appuyant sur [CATIN], le programme l’autorise 
de la manière la plus simple. 

donc 


Cette «variable de protection» est 


facultative. 


Si elle n’est pas présente, FINPUT la crée. Par 
défaut, cette chaîne de protection est 
STRS(LEN(message))&"PU". C'est à dire que 
tous les caractères de la «chaîne de message» 
sont protégés. Les suivants sont tous non 
protégés, jusqu’à la dimension maximum de la 
chaîne résultat. 


FINPUT sur plusieurs lignes 


Mais la principale caractéristique de FINPUT est 
la gestion de plusieurs lignes de saisie. C’est, 
en quelque sorte, un «masque d’écran» 
complet. 


Supposons que nous voulions rentrer la date et 
l'heure. Ceci pourrait être fait de la manière 
suivante : 


100 DIM D$[6] ,H$[6] 

110 FINPUT D$,"Date: Dy/Mo/Yr","6P2UP2UP2UP' ,A 
120 IF NOT A THEN END 

130 traitement de la date 


200 FINPUT H$,'"Heure: Hr:Mn:Sc!,7P2UP2UP2UP",A 
210 IF NOT A THEN END 
220 traitement de l'heure 


Mais il y a une autre solution : 


100 OPTION BASE 1 ! Pour démarrer les tableaux à 1 
110 DIM 1$(2)16],M$(2),P$S(2) 

120 DATA Date: Dy/Mo/Yr,hHeure: Hr:Mn:Sc 

130 DATA 6P2UP2UP2UP , 7P2UP2UP2UP 

160 READ M$ ! Lit les 2 messages 

170 READ P$ ! Lit Les 2 chaînes de protection 

180 FINPUT 1$,M$,PS$,A 

190 IF NOT A THEN END 

200 traitement de la date (IS(1)) 

210 traitement de l'heure (I8(2)) 


Cette dernière solution est beaucoup plus 
pratique que la première. L'introduction des 


données se fait en une seule fois. 


Les touches de curseur vertical servent à 
passer d’une ligne à l’autre. La touche 
(ENDLINE)] sert à valider une ligne. Important : 
la touche [RUN] sert à valider la ligne courante 
et sortir de FINPUT. La «variable attn» contient 
alors le numéro de la ligne sur laquelle on est 
sorti. La valeur 0 indique toujours une sortie 
par [ATTN]. 


Cette forme d'utilisation de FINPUT permet de 
saisir des fiches complètes en une seule 
opération. Le programmeur n’a donc plus à 
gérer tous les déplacements à l’intérieur de 
cette fiche, FINPUT le fait à sa place ! 


FINPUT remplace MENU 


Vous vous rappelez sans doute de la fonction 
MENU, écrite par Jean-Jacques  Dhénin. 
FINPUT remplace en quelque sorte cette 
fonction. En mode "tableaux", si tous vos 
Caractères sont protégés, FINPUT offre des 
fonctionnalités similaires à celles de MENU Une 
pression sur [RUN] indique quelle ligne vous 
choisissez, ligne dont vous avez le numéro 
dans la variable attn. 


RESUME 
La syntaxe : 


FINPUT y], exp, exp, attn 
FINPUT v/, exp, v2 


ou bien 


FINPUT ab, tab, tab, attn 
FINPUT ab, tab, v2 


Où : 

- y] est un nom de variable alphanumérique, 

- exp sont des expressions alphanumériques, 

- attn est un nom de variable numérique, 

- tab sont des noms de tableaux 
alphanumériques de même dimension 


La «chaîne de message» ne doit contenir que 
des caractères affichables, c’est à dire des 
caractères dont le code n’est ni 0 (NULL), ni 
27 (ESC), ni 13 (CR) ni 10 (LF), ni 8 (BS). 


La spécification de format doit contenir les 
lettres "U" et "P" (en majuscules ou 
minuscules) précédées ou non d’un facteur de 
répétition pour indiquer les caractères protégés 
ou non. 





Les variables simples peuvent être assimilées à 
des tableaux à un seul élément. 


La variable de destination doit être déjà créée. 


L'utilisation 


Sous FINPUT, la signification des touches est la 
suivante : 


[ATTN] 

Si des caractères ont été entrés, restauration de 
l'affichage par défaut, c’est à dire de la 
«chaîne de message» telle quelle. 

Une deuxième fois : sortie de FINPUT. 


Cf] [OFF] 
Sortie directe de FINPUT. 


(ENDLINE] 

Validation de la ligne courante et passage à la 
ligne suivante. Si il n’y a qu’une seule ligne, 
sort de FINPUT. 


[RUN] 

Validation de la ligne courante et sort de 
FINPUT. Si il n’y a qu’une seule ligne, [RUN] est 
identique à [ENDLINE]. 


["1, [vl, [g]l[”] et £Eg] [vil 

Change de ligne sans valider la ligne courante. 
Si une seule ligne, remet l'affichage par 
défaut. 


Contenu des variables en sortie 


Les variables «message» et «format» ne sont 
jamais modifiées. 


En cas de sortie normale (par [LENDLINE] ou 
[RUN]), la variable attn contient le numéro de la 
ligne sur laquelle on est sorti. Ce numéro varie 
entre 1 et la dimension du tableau. 


La variable destination contient les valeurs 
introduites. 


En cas de sortie prématurée (par [LATIN] ou 
[f)lOFF1), la variable attn contient 0. La 
variable destination n’est pas changée. 





CONCEPTION DE FINPUT 


Le but de ce chapitre est de décrire 
brièvement quelques points importants de 
FINPUT. Ces quelques 2 Ko d’assembleur nous 
semblent, a posteriori, très intéressants et 
bourrés de trucs et d'exemples de résolution 
de problèmes. 


Historique 
Pour les curieux, un peu d'histoire. 


Tout a commencé par une envie de créer un 
masque d'écran permettant d'utiliser des 
champs protégés, pour se constituer un outil 
général de saisie. 


Janick étant un fervent (voire farouche) 
défenseur du HP-75, nous avons ouvert le 
manuel de la Rom 1I/O, complément naturel 
(et indispensable) du HP-75. La fonction 
TEMPLATES nous à servi de base de travail. 
Cependant, la syntaxe de la chaîne de 
protection était trop liée aux spécificités de la 
machine. Nous avons donc défini une syntaxe 
basée uniquement sur les caractères "P" et "U"!. 
Elle est vite apparue lourde à manipuler. Nous 
avons donc introduit les facteurs de répétition 
dans le projet. 


La fonction TEMPLATES est limitée à une ligne. Il 
faut préciser que le HP-75 ne permet pas 
d'utiliser, de base, les champs protégés. Et 
TEMPLATES est le seul moyen d’y arriver. Nous 
avons étendu le projet aux tableaux entiers. 


Dans le projet initial, il fallait une variable 
indiquant sur quelle ligne s'était terminée la 
saisie. Peu à peu, cette variable s’est muée en 
variable attn. Aujourd’hui, elle est plus 
utilisée comme indicateur booléen, sauf bien 
sûr en utilisation de type “menu”. 


Le projet ainsi défini, nous avons commencé à 
coder. Nous sommes rapidement arrivés devant 
le problème posé par les touches t->] et 
[g] [->]. 


Nous avons alors envoyé une lettre au Support 
Technique aux Laboratoires de Corvallis. Nous 
nous sommes fait gentiment «envoyer 
promener». Il est vrai que la question 
dépassait quelque peu leurs attributions. 
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Nous nous sommes alors remis à l’ouvrage. Et 
FINPUT est sorti des ateliers vers la 
mi-novembre 1986. Depuis cette première 
version, quelques bogues mineures ont été 
corrigées. 


Au cours de la conception, le nom de l’orde a 
changé deux fois. Aux tous débuts, nous 
parlions de sAISY, pour mettre l’accent sur 
l'aspect «saisie d'écran», «masque de saisie». 
Ensuite, nous l’avons nommé SINPuT (Screen 
INPUT), par opposition à  LINPUT (Line 
INPUT). Et les capacités de formattage de la 
ligne de saisie nous ont conduits à renommer 
en FINPUT, à défaut de INPUT USING... 


La parse 


La première difficulté de FINPUT était la parse 
de l'ordre. En effet, le paramètre de 
protection est optionnel. À l'exécution, nous 
devons savoir si ce paramètre est présent sans 
avoir à évaluer le paramètre suivant. Nous 
avons donc mis en place un «quartet de 
reconnaissance», dont la valeur est 0 siiln'y a 
pas de chaîne de protection. 

Autrement dit, la tokenisation de 
1$,M$,PS$,A est : 

tXWORD id tFINPUT 

tokenisation de 1$ 

tCOMMMA 

tokenisation de M$ 

tCOMMA 

quartet à #F 

tokenisation de P$ 

tCOMMA 

tokenisation de A 


FINPUT 


alors que celle de FINPUT 1$,M$,A est : 
tXWORD id tFINPUT 

tokenisation de 1$ 

tCOMMMA 

tokenisation de M$ 

tCOMMA 

quartet à #0 

tokenisation de A 


D'autre part, il faut faire attention à ce que I$ 
soit un nom de variable ou de tableau, alors 
que MS et PS sont des expressions. 


Principe général 


Accrochez-vous ! 


Tout est représenté de manière interne par des 
tableaux. Chaque tableau est manipulé par 
l'intermédiaire d’un «dope vecteuuuuur» bien 
à lui. Le format nous est propre, et n’est pas 
similaire à ce qui existe actuellement, sur la 
Math Stack par exemple. Si vous voulez vous 
rafaraichir la mémoire sur les dope vecteurs 
normaux, revoyez vos IDS I, $ 13.3.2.2. La 
raison de ce format particulier est le manque 
de mémoire. Il aurait suffit d’un quartet 
supplémentaire dans le dope vecteuuuuur pour 
que FINPUT ne soit pas réalisable ! 


Une chaîne est assimilée à un tableau d’un 
seul élément. Tous les acteurs sont ainsi 
banalisés. Le seul objet qui fasse exception à 
la règle est la variable afttn, stockée sous une 
forme un peu spéciale. Mais ne nous attardons 
pas. 


Toute l'astuce de FINPUT, et ce qui fait sa 
supériorité sur les séquences d'échappement, 
est l’exploitation de la «bit map d'affichage», 
ou DSPMSK. Chaque bit de cette zone 
représente la protection d’un caractère. Une 
des étapes du processus consiste donc à 
compiler la chaîne de protection (caractères 
"U" et "P", avec facteurs multiplicatifs) en un 
champ de bits compréhensible par le HP-71. 


Pour afficher une ligne, :il suffit donc 
d'afficher le message, puis de mettre dans 
DSPMSK le champ de bit compilé 
précédemment. 


On voit donc que les données nécessaires lors 
de l’exécution de FINPUT sont : 


- Le message par défaut (MS), 

- Le champ de bits compilé, 

- La saisie de l'utilisateur, qui ira ensuite dans 
la variable IS, 

- L'image du display buffer, qui sera 
réinjectée à l'affichage lors du prochain retour 
sur la ligne. 


Nous voyons donc trois nouveaux tableaux 
apparaître. Ils existent entre AVMEMS et la 
Math-Stack. Bien qu’ils n’aient aucune relation 
avec des tableaux Basic, nous les avons 
nommés respectivement B$, US et D$. Après 
l'exécution de FINPUT, ils sont effacés. 


Avec ces trois tableaux supplémentaires, nous 
pouvons aller lire l’algorithme général fourni 
dans l'en-tête de SINPUTe, dans le fichier 
«bas.as». 





CONCLUSION 


Voilà, nous espérons vous avoir tout dit sur 
FINPUT. Cet ordre nous a demandé beaucoup de 
travail, mais nous pensons qu'il en vaut la 
peine. 


Depuis que nous l’avons fait, nous n’arrêtons 
pas de l'utiliser. Le programme 
d'enregistrement et de modification du fichier 
des adhérents du Club est réalisé sur la base 
de FINPUT. Et cela fournit un programme très 
agréable à utiliser, sans pour autant être très 
gourmand en octets. 


Le listage du code est donné sous forme 
comparable à celle des IDS du HP-71. Nous 
savons que vous ne pourrez pas l’introduire 
dans votre HP-71 tel quel. Mais ceux d’entre 
vous qui désireront l’étudier le feront plus 
facilement. 


Pour utiliser FINPUT, rendez-vous à la rubrique 
«le coin des Lhex», ou venez aux réunions. 
Dans tous les cas, FINPUT est déjà dans 
JPCLEX, et ceux qui ont acheté l’Eprom JPC 
l’auront dans leur Eprom. 


FINPUT est à vous, maintenant. Amusez-vous 


bien, et surtout faites de beaux programmes. 


Pierre David (37) 
Janick Taillandier (246) 
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File hp71.ep 

+ 00579 (Rel 001A2 
File hp71.ep 

+ 00F7) {(Rel 002D8 
+ 01176 {Rel 004D8 
Fiie . np?71.ep 

+ 00760 (Rei 00389 
+ OOCAA (Rei 0000F 
+ 01168 (Rei 004CD 
Fiie hp71.ep 

+ 0079 (Re! 003CS 
File : hp?71.ep 

+ OC4AE (Re 00007 
+ 00589 (Rei 00182 
* OOAiC (Rel O001A8 
+ 00018 (Re! 00070 
Fiie hp?71.ep 

* 00E3C (Rel O01A1 
File : hp71.ep 

+ O0EAS (el 00200 
File hp71.ep 

+ 00665 (Rel 0028F 
File : hp71.ep 

+ 00060 (Rel 0006D 
File : np7!.ep 

+ 009€) (Rel 0017F 
File : hp71.ep 

+ 00F68 (fel 002CD 
File : hp71.ep 

+ OOE1A {Reel 0017F 
File hp71i.ep 

+ 0020F (Rel 00090 
+ ©02F8 (Rel 0017C 
File : hp71.ep 

+ OO6AE (Re! 00207 
+ 01092 (Re 003F7 
+ 01145 {Rei 004AA 
File : hp?71.ep 

+ 006ES (Re; 00311 
File hp71.ep 

+ 00390 (Rel 0021E 
File : hp71.ep 

+ 0113E (Rel 004AJ 
Fiie : obj)/bas.ac 

+ QoCBi (Re: 00016 
+ 01109 (Rel O046E 
Fiie cb}/bat ,ao 

- 00420 (Re: 00106 
+ 007D1 (Rel 003FA 
File : obj/bas.ao 

+ 00402 (Rei 000FB 
+ 9oc7a (Re! 00400 
+ 00D6C (Rlel 000D1 
File ob}/bas .ao 

+ OO4FE (Re! 00127 
+ 0064 (Re) 00273 
+ o0scs (Be! 00054 
+ 01019 (Re) 0037E 
+ 010B4 (Rel 00419 
Fiie : obj/bas.ac 

+ 00473 (Rei 0011C 
+ 00673 (Re: 0029C 
+ 00685 (Reel 002D€ 
+ 00740 (Re! 00376 
+ 0oc7s (Rei 00407 
+ 00FD3 (Rel 00338 


File : ob}/bas.ao 

+ 004ac7 (Rei 000F0 
+ 00767 (Rel 00390 
File : obj/bas.ao 

+ OC4ES (Rel 00111 
+ 00851 {(Rei 0047À 
+ 01012 {Bei 00377 
File : hp71.ep 

+ voAoc (lel 00198 
File hp71.ep 

+ 0109C (lei 00401 
File hp71.ep 

+ 002AA (Rel 00128 
+ 0104E (Rel 00383 
File hp71.ep 

+ OOFAS (Bel 0030AÀ 
File hp71.ep 

+ 00DSF (Bel 00124 
Fiie np71.ep 

+ 00339 (flei 0011BA 
+ 0038f (Rel 00210 
File hp71.ep 

+ 00226 {Rel 000A7 


- 20284 (Reï 00135 
+ 00073 {(Rel 000D8 
+ 00D€7 (Rel 0014€ 
File nhp71.ep 

+ 0031F (ei 001A0 
File ob]/bas .ao 

+ 0ocs2 (Re; O040E 


- 01020 (fel 00385 
Fiie . "mp7: ep 
+ 901:5 (Re! o0115 
File hp71.ep 
+ 20356 (Re: 00107 
+ Q026E {Rel O0O1EF 
Fiie hp71.ep 
+ 00406 (Rel 0002F 
+* 20CA5 fe; 00008 
File . hp71 ep 
+ 200€C 1Rel 000EC 
File hp71.ep 
+ 20:28 (flel 00128 
Fiie np71.ep 
+ O00CCB (Bei 00030 
Fiie hp71.ep 


+ 01110 (Rel 00475 
File : hp71.ep 


+ 90ESF (el 001C4 
+ 00EN (Rei 00221 
Fiie 2b!/saisy. ao 
+ 00560 {fei 00196 
File 2b:/bas .20 

+ 2094; {Bei 00041 
Fiie 0D)/sa1isy.ac 
- 00572 (fel 00198 
Fi:e hp71.ep 

+ 203:8 (Re! 00199 
File hp71 ep 

+ 00880 (flei 9090€ 
- 20867 (fe! 00013 
+ 2083: (RHei 000721 
+ J08AS {fle: 00035 
+ 2798: fe: 2007F 
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“Filed 
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01189 


00408 


00400 
00520 


004Frc 
004F1 


004C5 


004E6 


00503 
18318 
OECAF 


+ 0o8c1 (Re! 00040 
+ 006€) (fle} 0006F 
+ C06Fs (Rei 00087 
* 0vosoc (Re| 00088 
+ 00522 (Rel OOOAE 
+ 00529 (Rel 0008$ 
* 0095) (Rel 000DF 
* 0095E (Rei 0O00EA 
* 009CD (Re]l 00159 
+ 0o90F (Re) 00168 
+ C0A41 (Re) 001CD 
+ 00A50 (Rel 0010 
* 00AS7 (Re]l 00213 
+ 0OAAS (Re) 0022F 
+ 00ABO (Rei 0023C 
* O0ACA4 (Re] 00250 
* O0ACF (Rel 00258 
+ OO0ADE (Rel 00262 
* O0AFS (Rel 00281 
+ 00814 (Re] 002A0 
* 0081F (Reli 002AB 
+ 00839 (Rel 002C5 
+ 00848 (Rei 002D4 
+ 00856 (Rel 002E4 
+ 0087F (Riel 00308 
+ 00890 (Rel 0031C 
+ 00BAO (Re) 0032C 
+ 00885 (Rel 00341 
+ 00BCB {Re} 00357 
+ 0oBD6 (Rel 00362 
+ DOBES {Re} 00375 
+ 00BF« (Re! 00380 
+ 00c02 (Rel 008€ 
+ 00C10 (Rel 0039C 
* OOCSA (Rel 002F6 
+ vocss (Re! 00414 
File : ecf.ep 

* 00020 (Rel 00020 
File : obj/bas a0 

* O008EC (Rei 00078 
+ C0ODDE (Re! 00143 
File : obj/bas.ao 

+ 01048 (Rel 003AD 
File : ob}/bas.ao 

+ 006A4 (Re] 00930 
+ 00959 {Rel 000E5 
+ C0DAO (Rel 00105 
+ 00F92 (Rel 002F7 
File : obj/bas ao 
File : obj)/bas ao 

+ 00932 (Re]l 000BE 
+ 0OoCF3 (Re] 00058 
+ 00FS4 (Rel 002E9 
File : obj/bas.ac 

+ 00890 (Rlel 0001€ 
File : obj/bas.aco 
+ 00915 (Rel CO0A! 
+ 00C0B (hell 00397 
+ 01002 (Rle] 00437 
File : obj/bas .ac 

+ CcoDs2 (Rel 000F?7 
File : hp71.ep 

+ 01158 (he! 0048D 
File : hp71.ep 
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00337 
2rF958B 


00001 


02E2F 
02E66 
2F6C1 


09440 
09393 


01308 
18177 
0ECBB 
00130 
02E5C 
2F599 
14CSA 
04538 
08A48 
01435 
02CES 
25300 
02028 
°017F 


28038 


+ 006D3 (Rei 002FC 
File : obj/pol.ao 

+ 00762 (lei 002C7 
File : obj/saisy.ac 

+ O01CE {Bel 00047 
+ 003Ca (Rel 00245 
+ 00E26 (Rel 00188 
+ 00E49 (lel OO1AE 
File : obj/saisy.ao 


+ coins (Bel 0005AÀ 
+ 003C1 (hel 00242 
+ 00E31 (fe! 00196 
* 00E45 (lel 001A8 
File : np71.ep 

+ 00058 (lei 00058 
File : hp?71.ep 

+ O00DE (Riel 000DE 
File : hp?71.ep 

+ O0DSE (Re! 000C3 
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00F7A {fei 0020F 
01030 (Rel 00395 
0103E (Re] 003A3 
o10cs (Rhel 00420 
File : hp71.ep 

+ 00783 (Rlel 0030 
File : hp71.ep 

+ 004c0 (Re! 000E9 
+ 0094ac (Re! 00008 
+ 01102 (he! 00467 
File : hp7i ep 

+ 003FF ‘flel 20028 
Fiie hp7i.ep 

+ 01077 (flei 0045C 
File : hp71.ep 

* 0078A (Rel 003E3 
File ob)/=3g 20 
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File : hp71.ep 
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obj/saisy.ao) 
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+ 00450 (Re] 00079 in obj/bas ac) Output module : saisylex 
.* 010Aj (Rel 00408 in obj/boucie.ao) 
-POFBUF « O10EE File : hp71.ep Source module : ©b}/saisy.aco 
+ 00EB3 (Rel 00218 in obj/boucie.ac) Start »# 00000. End »* 0012F. Length * 00130 
*RCRSTK “* 01400 File : hp7l.ep 
+ 0034F (Rei 001D0 in obj/pol .ao) Source module : obj/=s9.a0 
-RDATTY * 17CC6 File : hp?71.ep Starr + 00130. End + 0017E, Length * 0004F 
+ 0045 (Rel O0OODE in obj/bes .a0) 
-REAOPS « 03238 File : hp71.ep Source module : obj/pol.ao 
+ 00081 (Rel 00081 in obj/saisy.a0) Start » 0017F, End + 003D6, Length » 00258 
°RESPTR « 03172 File : hp7l.ep 
+ 090E$ {Rel O000E$ in obj/sai5y.a0) Source module : obj/bas.a0 
“RFTKY « 152BA File : hp71.ep Starr + 003D7, End » 00873, Length + 00490 
+ 0094 {Rel 001F$ in ob}/boucle.ac}) 
"RSTKCR + OJ4A8 File : hp7l1.ep Source module : ob}j/comp.ac 
+ 0037E (Rel 001FF in obj/pol.ao) Start »# 00874, End * OOC9A, Length » 00427 
*5-R1-2 » 2F88B File : hp71.ep 
+ 01140  (Rel 00481 in obj/boucle.ao} Source module : obj/boucle.ac 
-SCRLLR ° 0212E File : hp71.ep Start » 00C9B, End * 01188, Lengtn * OO4EE 
+ 00E9E (Rel 00203 in obj/boucle .ac) 
sSTKCHR * 18504 File : hnp71.ep 
+ 0Oo6AI (Rel 002CA in obj/bas .a0) 
STORE « OFSF8 File : hp71.ep 
+ 0116F (Re! 00424 in obj/bouc le .ao) 
°TBLIMC " 02426 File : hp71.ep Date : Mon Mar 16 11:53:59 1987 
+ 00A33 {Rei O018F in obj/comp.ao) 
. TRSMBEF ” 2F68CS File : Nnp71.ep Errors : 000 
+ 006C2 (Re) 002€B in obj/bas.ao) 


+ 00727 (FRel 00350 in obj/bas.ao) 

+ 0080 (Re! 00068 in obj/conp.a0) Areuh Assembler/Linker V2.0, (c) PF. David 6 J. Taillandier 1986 Paris. Fran 
+ OOAEB (Re: 00277 in obj/comp.a0) 

+ C086F (Rel 002FB in obj/comp.a0) 


WI NDLN + 2F473 File : hp71.ep 

+ 00308 (Rei 00183 in obj/pol.ao) 
se:DIn =" 00006 File : ob}/msg.ac 

+ 004A8 (Rel 90001 in ob;/bas.ao) 
elfMT "= 0000$% File : ob!/msg.ac 

+ O0A16 {Rel OC1A2 in obj/conmp.ac} 
se !:NOVR *- 00007 File : ob}/msg.ac 

+ 00583 {Rel O01AC in obj/bas.ac) 
se: PRMP * 00004 File : ob}j/msg.ac 

+ 00D12 (Reel 00077 in obj/boucle .a0) 
*eSTROV * 00025 File : np?7l.ep 


+ 0048 (Rel 000Ë$ in obj/bas.ao) 
+ 00548 (Re! 000D4 in obj/comp.ac) 
+ Q10FE (Rel 00463 in obj/boucle.ao) 
“id * O00E! File : obj/saisy.ac 
+ 0048 (Rel 900D1 in obj/bas.ao) 
+ 00583 (Re! OOLAC in ob}/bas ao) 
+ 00A16 (Rei O01A2 in obj/comp.ac) 
+ 0oD12 (Re: 00977 in obj/boucie.ac} 
00006 File : hp71.ep 
+ 001F3 (Rel 00074 in obj/pol.ao) 
kcRAT » 00009 File : hp71.ep 
+ OO1EA (Rei 00068 in obj/pol.ao) 
0CO00F File : hp71.ep 
+ 001FC (Re! 0007D in obj/pol.ao) 
nn * 2FS8FA File : obj/bas.ao 
+ 0048E (Bel 00087 in obj/bas .ao) 
+ 0065C (Rel 00285 in obj/bas .a0) 
+ 00784 (Bel 0O03AD in obj/bas .a0) 
+ 007CA  (Rel 003F3 in obj/bas ao) 


LkCFAT 


°kcRUN 


00876 (Rei 900002 in obj/comp.a0) 
20CE6 [Re] 00048 in obj/bouc le .ao) 
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+ 00fF1F (Rel 00284 in ob1/boucle.ac) 
+ 00F54 (Rel 00289 in obj/boucle .a0 ) 
+ 0O0FEC {(Rei 00351 in obj/boucle.ao) 
+ 01005 (Bel 00364 in obj/boucle .ac) 


"PCONFG = 000F3 File : hp71.ep 

+ 0018A (Be] 90008 in obj/pol .a0) 
=PKYDF = 00018 File : hp71.ep 

+ 00181 (Rei 00002 in obj/pol.so) 
2LSINPUT » 0005D File : obj/saisy.ac 


JPC 43 Page 23 pee 


Page 001 FINFUT : MODULE PRINCIPAL Csaisy.as> Page 00) FINPUT : MODULE PRINCIPAL Csaltsy as) 
AREUH ASS, V2.0 AREUH ASS. V2.0 DECOMPILE ROUTINE 
0001 ooo0c TITLE FINPUT : MODULE PRINCIPAL (saisy.es? 0088 000F1i 
2002 00000 008% 000F1 31C2 virgud LCASC ”, 
0003 00000 35149438 NIBASC “SAISYLEX' File Name 0090 000F5 sD00000 COVLNG sOUTBY: 
00008 95C45485 0091 000FC 
0004 00010 802€ NIBHEX 802E File Type » Lex 0092 000FC *FINPUTA 
C00$ 00914 00 CON(2) © Copy code » 0 009} O000FC 7920 COSUB exprde 
0096 00016 0000 CON(4) © Time * © 0094 00100 7DEF GOSUB virgud 
0007 0001A 000000 CON(6) © Date » 0 00$% 00104 7120 GOSUB exprdc 
2008 00020 00000 REL(S) °FileNd End of File Chain 0096 00108 75EF GCOSUB virgud 
2009 90025 0097 0010C 170 Di =Di+ 1 
0910 900028 “id EQU #E1 0098 0010F 7610 GOSUB exprdc 
2211 00025 *LSINPUT EQU 932 009% 0011} S8F00000 GOSBVL #EOLXCs 
00:2 00025 0100 OO11A 73DF GOSUB virqué 
2013 00075 * INSINP EQU #2F98B 010] O011€ 7700 GCGOSUB exprdc 
0014 00025 *INSMSK EQU 10001 0102 00122 SD00000 GOVLNG “OUTELI 
0015 oco2s 0103 00129 
0016 00025 1E CON(2}) “14 lé 0104 0012% 8000000 exprdc GOVLNG *EXPRDC 
2017 00027 DS CON(2) °LSINPUT Lowest Token 0105 00130 
0018 00029 DS CON(2) "LSINPUT Highest Token 0106 90130 END 
2019 00028 00000 CONS) 0 Next Lex table link 
0C20 00030 
0021 00030 F NIBHEX F NO speed table 
9322 90031 7100 REL(4) 1+TxTbSt Text Table offset 
0023 00035 0000 REL(4) -MSCTEL Message Table offset 
0C24 000395 00000 REL(S) *#POLHND Pol: handier offset 
002% 000€ 
0626 000E 900 CONC3) (TxEn0O1 )}-(TxTbSt ) 
2027 0004: 00000 REL(S ) *FINPUTe 
9028 00046 D CON(1) æD 
200293 00047 TxTbSt 
0G30 00047 8 TxEn01 CON(1) 11 
2031 00048 6494E405 NIBASC ‘FINPUT 86/11/29 : SINPUT mue en FINPUT 
00059 5545 
2032 90054 DS CON(C2) °LtSINPUT 
2033 00056 1FF Ni BHEX 1FF 
0934 00059 
Page 9202 FINPUT : MODULE PRINCIPAL (saisy.as) Page 004 FINPUT : MODULE PRINCIPAL (saisy.as> 
AREUH ASS. V2.0 PARSE ROUTINE AREUH ASS. Y2.0 ss. SYMBOL TABLE +. 
2036 90059 e *CORCK- * Extrn Ukn - 0044 
2037 90059 + Syntaxe: SAISY 15,.MS, [P3,j À 2£OLXC+ Extrn Ukn - 0099 
2038 90056 e «EXPPAR Exten Ukn - 0085 
0039 90059 *EXPRIC Extrn Ukn - 0104 
0040 00059 SD00000 ivpare GOVLNG :IVPARe 2É INPUTÉ 000FC Bel 0092 - 
2041 00060 *FINPUTe Extrn Ukn - 0027 
0042 00060 ?7F70 comma GOSUB resptr *FINPUTP 0007C el 0048 - 
2043 00064 SF00000 GOSBVL +NTOKEN «Filed Exten Ukn - 0008 
2044 00068 8F00000 GOSBVL +COMCK+ check 6 output tCOMMA Filed 00130 Bel 0106 - 
0045 00072 400 RTC Où .INSINP 2F98B Abs 0013 - 
9046 90075 S8D00000 aspare GOVLNG =ASPARe .INSASK 00001 Abs 0014 - 
0047 0007C€ | + IVPARe Extrn Ukn - 0040 
9048 0007€ *FINPUTp * IVVARe Extrn Ukn " 00o8z 
9049 0007C e ST=0 8 Dummy arrays are valid *ASCTSL Extern Ukn - 0023 
2050 9007C 859 STs1 9 Single string variable parse :MSPARe Exten Ven + 0046 
201 0007F SF00000 COSEVL #READPS supporte [mais oui !) *KTOKEN Extrn Ukn - 0043 
1052 00086 ?760F GOSUE conna *OUTBY + Exten Ukn - 0090 
2053 0008A EL *OUTEL1 Extrn Ukn * 0102 
2054 9008A 7CS0 COSUB exppar A4 *OUTRAIS Extrn Ukn - 0063 
2055 0008E 873 7STei 3 * POLHAD Extrn Ukn r 0024 
3056 00091 8c GOYES ivpare "READPS Extrn Ukn - pos1 
2057 00093 ?79CF GOSUB coms "RESPTR Extrn Ukn * 0083 
2058 00097 + Ps ou À SIRp10 000CD fe! 0076 - 0066 
2059 90097 136 CDOEX ] TxËn01 00047 Re: 0030 - 0026 
2069 0009A i0A R2C ! Quartet de reconnaissance :* 0 TxTbSt 00047 Mel 0029 - 0022 0026 
2061 0009D 134 D0=C ! ti il n'y a pas Ps coma 00060 Re! 0042 - 0052 005? 0073 
2062 900A0 22 C0 À ‘ exppar OOCEA fRel 0085 - 0054 9064 007% 
2063 900A2 8F00000 GOSBVL +*OUTNIB : expr de 00129 Rel 0104 - 0093 9095 0098 0101 
2264 200A9 ?’030 GOSUB exppar “id 000E1 Abs 0010 - 0016 
106% 700AD 973 7ST=1 3 Valid String expression lvpare 00059 Rel 0040 - 9056 
2966 20080 21 GCYES S:Npio ivvare 000DC el 0082 - 0077 0079 
2067 200B2 :;: 82 2spare 00075 Bel 0046 - 
2063 2008 116 S00EX ° Quartet de reconnaissance := F resptr 000E3 Re! 0083 - 9042 0081 
2069 J00B8 AC) A0 s 51 11 y a Ps 2tSINPUT 2005D Abs 90011 - 0017 018 0032 
2072 90088 A4C AeA=i 5 virqua 000F1 flei 0089 : 0094 9096 0100 
20": 2008E :504 DATOsA S 
2072 200C2 :34 20°C 
2079 200€ *79F GOSUB conmma 
1274 200C9 + À 
2075 7009 "D10 GOSUB exppar 
2076 J00C2 870 SINp10 ?Siei 9 No valid expression ? 
3077 230000 €<9 GOYES ivvare Source : saisy.as 
2:78 900C2 86] TST-0 3 Valid string expression ? 
907$ 900DS ?0 GOYES :vvare Invalid var Object  : abj/saisy.ao 
2280 00007 831 7XM°0 Éxpression * passable par reference 
208: 202DA 90 GOYES resptr Listing : list/saisy al 
208: 9000 SsD00000 ivvare GOVLNG °[VVYARe 
208} 000E) 8000000 respirer GOVLAG °RESPTR Date : Ron Mar 16 11:51:36 1987 
2084 3J00EA 
208% 9JO0CEA 8200000 exppar GOVLNG :EXPPFAR Érrors : 900 
:086 2300F1 
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DEC RD RIRE EN 


Fage 001 


FINPUT : MESSAGE TABLE {msg .as} 


AREUH ASS. V2.0 


coo1 00000 TITLE FINPUT : MESSAGE TABLE (msg.a5) 
0002 00000 
000 00000 MBASE EQU e 
0004 00009 °e!PRMP EQU (MBASE )+0 Invalid Proapt 
000% 00000 “elFMT EQU (MBASE +1 Invalid Format 
0006 00900 s.1DIM EQU (MBASE )*2 s#Dins 
0097 00000 *e!NOVR EQU {MBASE }+3 Var Not Found 
0008 00000 
000$ 00000 -MSCTEL 
0010 00000 40 CON(2) 4 Lowest message # 
2011 00002 70 CON(2) 7 Highest message # 
0012 00004 
0013 00004 «+ aDins 
00:4 00004 01 CON(2) 16 
00:5 00006 60 CON(2) eIDIM Message # 2 
0016 00008 4 CON(1) 4 
0017 0000$ 324496D6 NIBASC ‘sDins 
ooo1it 37 
0018 00013 € CON(1} 12 
0019 00014 
0020 00014 - Invalid Prompt 
0021 00014 51 CON(2) 21 
0022 00016 40 CON(2) *elPAMP Message # 0 
0023 00018 € CON(1) 14 
0024 00019 CE CON(2) 236 
0025 00018 5 CON(1) 5 
2026 0001€ 0527F6D6 NIBASC ‘Fronpt 
00024 0747 
0027 00028 € CON(1) 12 
92028 00029 
0029 00029 « Invalid Format 
0030 00029 51 CON(2}) 21 
0031 00028 50 CON(2) =eIFHT Message # : 
2032 00020 E CON(:) 14 
0033 0002 CE CON(2) 236 
0034 00030 $ CON(1) 9 
0035 00031 64F627D6 NIBASC ‘Format ” 
00019 1647 
0036 0003D C CON(1}) 12 
29037 000€ 
0038 900JE * Var Not Found 
2039 Q0003E FO CON(2) 15 
0040 90040 70 CON(2) “eINOVR Message # 3 
2041 00042 2 CON(1) 2 
0042 90043 651627 NIBASC ‘Var ” 
0043 00049 E CON(1}) 14 
0044 0004 8E CON(2) 232 
0045 0004C€ € CON(1) 12 
0046 0004D 
0047 00049 FF NIBHEX FF Table terminator 
0046 0004F 
0045 0004F END 
Page 002 FINPUT : MESSAGE TABLE (msç.as? 
AREUH ASS. V2.0 ses. SYMBOL TABLE =. 
FileNd 0004F Rei 0049 - 
“MSCTEL 00000 Rei 0003 - 
MBASE 00004 Abs 0003 - 0004 000$ 0006 0007 
=e;DIM 00006 Abs 0006 - 0015 
elFMT 0000 Abs 0005 - 0031 
se INOVR 00007 Abs 0007 - 0040 
*eIPRMP 00004 Abs 0004 - 0022 
Source : =3q.a5 
Object  : obj/msg.ac 
Listing : list/msç.a]l 
Date : Mon Mar 16 11:51:45 1987 


Errors 
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oo1 


AREUH ASS. V2.0 


0001 
000? 
0003 
0004 
0005 
0006 
0007 
0008 
0003 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
oo1s 
0019 
0020 
0021 
0022 
0023 
0024 
002$ 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
2038 
2039 
oosû 
0041 
0047 
0043 
0044 
0045 
0046 
0047 
0048 
0045 
0050 
0051 
00%2 
0053 
0054 
005$ 
0056 
0a57 
0058 
0059 
0069 
0061 
0062 
0063 


00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
20000 
00000 
00000 
00000 
00000 
00000 
90000 
00000 
00000 
20000 
o0oc0oo 
90000 
00000 3100 
00004 961 
00007 64 
20009 3100 
00000 961 
20010 90 
00012 969 
90015 80 
0001? 00 
20019 
20019 6622 
0001D 
0001D 
00010 
2001D 
00010 
00010 
00010 
00010 
00010 
0001D 
20010 
90010 
00010 
0001D 
00010 
o0oo10 
00010 
0001D 
00010 
00010 :18 
00020 135 





FINPUT : POLL HANDLER (pol .as? 





TITLE FINPUT : POLL HANDLER (pol.as? 


Sits d'etat du display driver du MP71. 


BitsOkR EQU i 
HoChFC EQU 11 


EscSro EQU 0 
EscSti EQU 1 


POLHAD 
But: traiter les polls arrivant dans le Lex. 
Entree: 
- BB) + numero du poil 
- Rode + Hex 
-P-0 
- si fast poli D(A) à preserver 
Sortie: 
- voir les poll 
Detail: 
Polls interceptes .PVER, PKYDF. pCONFG 
Histor ique : 
86/11/16: P D. & J.T. conception 6 codage 
66/11/24: P.D. ajout de documentation 
26/12/02: P.D. 6 J.7. PCONFG pour mettre à 0 le flag 


concrosconronnnsmsnenemssscmeneeseneenenesensnmn see -... 


POLHND 
LC(23 ‘pKYDF 
sec B 
GOYES hKYDEF 
LC(21 ‘pCONFG 
bec b 
goyes NCONFG 
Tb=0 b 
goyes hVER$O 

rtnsxn ATHSXA 

NCONFG GOTO nCFG00 


Sanson onmnessesenesssssnmenesssmmosesssnes vrocccossre 


hvER$0 

But: renvoyer le numero de version de SAISYLEX 

Entree: 

Sortie: - 

Detail: 
Poupe sur EDLEX (merci HP ‘) 
Mis la à la demande explicite ‘mais ferme} de J.7T.. 
pour lui eviter de se melianger les pinceaux... 
Le mauvais francais du commentaire qu est au 4 ssus e<° 
d'P,D. (vive moi ‘). 

Histor ique: 
86/11/29: P.D. 6 J.T. conception 6 pompage 
27/01/25: P D. & J.T. V3: Voir PP$010 ‘bas as} 
97/02/17: P D FIRP:A 


LELLLELLLL) cons nncvesnonescessssecesesmeneseonsessonpees-e* 


NVERSO cer7 
dise 
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Page 002 FINPUT : POLL HANDLER (pol .as) Fage 004 FINPUT : POLL HANDLER ‘pol .as) 
AREUK ASS. V2.0 AREUH ASS. V2.0 TOUCHE [-)] 
2064 00023 112 .r2 0128 O008E nn ne nm nee nn nomme mmmmssssmmsnsns 
2065 00926 1CD dl+dl- (VERten)-(VERSSt )-2 012$ 0008€ - hK2010 
0066 00029 137 cdiex 0130 0008€ . 
0967 0002C 886 ac 0131 O0008E€ * But: traiter le deplacement à droite (touche [-2]) dens 
2068 0002F C1 goyes hNVERS1 0132 0008E€ . SINPUT. 
0069 90031 135 diec 013) 000€ « Entree: - 
0070 00034 108 rire 0134 000€ + Sortie: 
0071 00037 3D14A30% VER$st lcasc \ FINP:A\ 013$ 0008€ . ” Interception de la touche signifie que nous 
0003F E4946402 0136 0008€ . n'autorisons pas le deplacement à droite. 
0072 0004? 1500 VER$en datlsc (VER$en)-(VERSst)-2 0137 0008E « Abime: ÀA-C, DO, D1, ST 
0073 00048 00 NVER$i rtnsxm 0198 0008€ + Niveaux: 0 
2074 00040 0129 0008E - Historique: 
0075 00040 RON OR nn nm nn nn mme 0140 O008E -. 86/11/16: | A : PU : ST: conception & codage 
0076 0004D ° hKOYDF 0141 OO008E . 86/11/24: P.D. ajout de documentation 
0077 00040 e 0142 0006€ OR OR OR OR nn nn mn nm nn mnaumss 
0978 CO04D * But: traiter le poll PpKYDF (definition de touche) 014} O0008E€ 
20079 00040 + Entree: 0144 0008€ hKD010 
0C80 0004D . RICA) * code logique de la touche 0145 O008E . 
2981 00040 + Sortie: 0146 O0OSE « Recherche #11 existe un caractere non proLege dans le 
0082 00040 e 2 Cas possibles : 0147 0008€ * reste du display buffer 
0083 00040 e non interception 0148 O008E . 
0084 0004D . * on n'est pas dans SINPUT 0149 O008E »® for 1 :° CURSOR + 1 to 96 do 
008$ 00040 . la touche n'est nf [->}, ni f[g]{[-)] 0150 OOCSE . 11 dspmack{i] + unprotected then exit : 
C086 00040 . * la touche est [-2], mais on l'autorise (pas arrive 0151 0006E e 
2087 0004D . au bout de ]'affichage}) 0152 O0008E 1B00000 DO=(5) =CURSOR 
0288 0004D . * la touche est [g][->], mais c'est un cas special 015) 00095 AFO hr.0 " 
0C8$ 00040 LS interception et action (sans definition) 0154 00098 j14A A°DATO B AA) :+ (CURSOR) 
0050 0004D e. + la touche est [RUN] 0155 00098 Ea A=h+1 À ACA) := next char, 
2091 0004D . * la touche est [2], et on est arrive à la fin de 0156 0009D De BeA x BA) :° next char. 
2092 00040 e l affichage 0157 0009F 81C ASRB 
3093 00040 . - la touche est {g]}{-2]. c'est nous qui manipulons le 0158 OO0AI 81C ASRB A(B) == (next Char) / 4 
c094 00040 . curseur pour !'amener à la fin de l'affichage. 015% COCA: 3400000 LC(S) (°DSPMSK)-23 
2695 00040 + Abine: AC. D0. Di, ST 0169 900AC E2 CeC-A À 
2096 00040 + Niveaux: 0 0161 OOOAE 134 DO sC DO :* ” dspmsk [next char] 
2997 90040 « Histor ique: 0162 00081 e 
0098 G004D . 86/11/16: P.D. & J.T. conception & codage 016} 00081 + [Il est bien evident que la boucle reelle ne sera pas une 
2099 0004D e 86/11/24: F.D ajout de documentation 0164 00081 “* boucle caractere par caractere. La boucle va traiter un 
2:09 00040 . 86/12/02: P.D. 6 J.T. ajout de [RUN] 0165 00081 * Quartet de DSPHSK à la fois, c est a dire quatre 
2191 00940 OR RmRRn RO RORRRORRRRSR m nme ennnnnnésssostess 0166 0008: « CaracLeres, 11 ya donc un cas particulier a Lester au 
2192 00040 e 016? 0008! * preailable : le cas ou il n'y a pas exactement un multiple 
2:93 00040 hKYDEF 0168 00081 « de 4. 
0104 00040 1800000 DO*(5) *INSINP 0169 00081 e 
019$ 00054 15A0 AsDATO 1 0170 00081 Da 28 Li ACA) :" next char. 
0106 00068 0171 00083 31F5 LC(2) 95 
0:97 00058 300 LC(1) "INSASK 0172 00087 862 CeC-A B CB) :+ nb de char. restant 
0:08 0008 0E906 AsAGC P 0173 O00BA 49C ‘ Goc ATnsxa curseur & la fin 
0109 O0005F 908 7h=0 P 0174 O000BD AEA h=C B 
21:0 00062 58 GOYES rtnsxa 0175 O000C0 AES BeA B B(B) :+ sauvegarde du nb de char. 
G1:1 00064 110 A=RO 0176 000C) J130 LC(2) x*oo11 
2112 0006? D2 C.0 a 0177 000C7 0E66 h°A6C 8 AB) :* X =» nb de char mod 4 
0113 00069 3100 LC(C2) =kcRT 0178 000CB 962 7AeC B 
2114 0006D SA AsC L 0179 OO0OCE A2 GOYES reste 
2115 00070 Ei GOYES hKO010 0160 000D0 21 Pe *ooo1 
0116 00072 3100 LC(C2) e°kcFRT 0181 000D2 ASC AsA-1 8 
0117 00076 8A2 He, Lie À 0182 000DS «co Gcoc sk 
2118 00079 DO GOYES hKkD000 0183 00008 23 ._. Ps xoo11 
01:9 0007B J100 LC(2) »#kcAUN 0184 000DA A6C A°A-1 B 
0120 0007F 8A2 7A2C À 0185 00000 440 Goc =sk 
9121 00082 80 GOYES hKDO0!1 0186 O00E0 27 Ps *0111 
23122 00084 00 RTnsxn RTASXM 0187 O00E2 SOCF ask Cr 15 
2123 90086 0188 O00E6 20 Ps 0 
0124 00086 6790 hKD000 GOTO hKD050 Touche {g][-?] 0189 O00ES 1524 A=DATO 5 
0125 O008A 6191 hKDO01 GOTO hKD100 0190 O00EC 0E46 A°A&C S 
Page 00) FINPUT : POLL HANDLER (pol .as? Page 005 FINPUT : POLL HANDLER «pol .as) 
AREUK ASS. V2,.0 AREUH ASS. V2.0 TOUCHE [-)] 
0126 9008E 0191 000F0O 946 ?Aec s 
0192 000F3 92 ., GOYES Rtnsxa 
0193 000F5 e 
0194 000F5 + Maintenant, le cas particulier à ete teste, 1l ne reste 
0195 000F5 + qu'a tester que tous les autres quartets de DSPMSK ont 
- 0196 000F5 + conne valeur #F. 
0197 000FS e 
0198 000F5 180 DO=D0- 1 
0199 000F8 reste 
0200 O00FS8 8s1D ESRE 
0201 000FB 810 ESRB B(B) := (nb de car.) / 4 
0202 O0OFE 5F0 GORC rst20 B.E.T. 
0203 00101 1564 rst10 CeDATO S 
0204 00105 B46 CeCei 5 
0205 00108 531 GONC  Rtnsxs 
0206 00108 180 DO=D0- 1 
0207 0010€ A6D rst20 Be-B8-1 8 
0208 OC111 SFE GORC rst10 
0209 00114 
0210 00114 CC ROROROOCOOROCOROROOOOOROOOO OR Re 0eme ecese 
0211 00114 « RIEN 
0212 00114 . 
0213 00114 + But. ne rien faire (æhhARhnAMmhhNiNAMN } 
0214 00114 + Entrese: - 
0215 00114 «+ Sortie: Par ATNSAM., « CHEDIT. en declarant qu on a agit 
9216 90114 . et qu'il n y à pas besoin que le systeme continue 
0217 00114 + Histor ique: 
2218 90114 . 86/12/02: P D. 6 J T. conception & codage 
9219 00114 CELELELLILLL LILI LILI LILI LILI L TILL III LLILILILIIILILILILLLILILLLLLLE 
9220 00114 840 RIEN ST «0 0 inhiber la touche 
0221 00117 821 XM=0 
0222 9011A 901 ATH 
0223 900110 
9224 9011C 00 Btnsxm RTNSXM 
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Page 006 
AREUH ASS. 


0226 O011E 
0227 OO11E 
0228 OC11E 
0229 OO11E 
0250 O011E 
0231 O011E 
9232 OO11E 
92233 O011E 
0234 OOL1E 
023% O0O11E 
0236 O011E 
0237 OC11E 
9238 Q0O11E 
0239 OO11iE 
0240 OOL1E 
9241 GO11E 
0242 OO11E 
0243 OO11E 
0244 O0O11E 
6245 OO11E 
0246 OO11E 
0247 O011E 
0248 O011E 
9249 O011E 
0250 O011E 
0251 OO11E 
0252 OO11E 
0253 OO011E 
90254 O0::E 
025% O01:E 
2256 O911E 
0257 Q011E 
2258 Q011E 
0259 O011E 
2260 QO011E 
9261 O011E 
0262 O011E 
9:63 O0i1E 
2264 OO0I1E 
2265 OC11E 
2266 901:E 
92267 9J011E 
0:68 O011E 
2269 9911E 
92270 OO11E 
9271 O011E 
9272 00:22 
9173 00122 
0274 00122 
9275 00122 
2276 00:22 
0277 00122 
2278 00122 
0279 00122 
0280 00122 
2281 00:72 
0:82 00122 
2283 0012? 
2284 00122 
2285 001122 
2286 00:22 
0287 00122 
2288 9001722 


Page 007 
AREUH ASS 


0289 00:22 
2290 00:22 
0291 00122 
2292 00122 
0293 00126 
2294 00129 
029% 00130 
2296 00133 
0297 00133 
0298 0013AÀ 
0299 0013€ 
0300 0013€ 
0301 9013E 
0302 901€ 
2303 O0013E 
2304 0013E 
9305 O001)JE 
2306 9013E 
2307 9013€ 
2308 0011E 
2399 901€ 
2110 9011E 
23:11 0011E 
2312 0013E 
2313 0013E 
9314 0013E 
2315 9013E 
23:6 00141 
32:17 20143 
21:18 00146 
2319 20:4A 
2320 0014D 
23:1 90140 
2322 20149 
2223 20:49 
93:4 20:42 
232% 00140 
5126 90154 
3327 90154 
2129 20154 
2329 00157 
:330 00:58 
2331 00159 
2332 00159 
2333 90:59 
2334 20159 
232% 00149 
2336 00149 
29337 0015C 
2338 9201F 
0339 00161 
0340 00161 
3341 20:64 
0342 00164 
3343 20:67 
1344 OC:6À 
53495 2016AÀ 
0346 00160 
3347 00170 
2348 230170 
3349 00170 
3350 00170 
235: 90170 


FINPUT : POLL HANDLER (pol as) 
V2.0 TOUCRE [g]{->) 


mn nm nm méme reeeeee 


hK29050 


- 

+ But: traiter la touche {g]{[->] quand on est dans SINPUT. 
- Entree: 
e Sortie: - 

. La touche est inlerceplee, c'est nous qu'on a traite 

. 1] apput sur la touche, et c'est pas HP. Na ' 

+ Detail: 
e 2 cas 

e " Le dernier caractere du display buffer est protege. 
. Dans ce cas, 19]!")}] nous amene sur le dernier 

e Caractere du dernier champ non protege. 

. " le dernier Caractere du display n'est pas protege. 
. Alors, {gj{-)] nous amene apres le dernier 

e caractere introduit si c'est possible (c'est «a dire 
. que le dispiay buffer n'est pas plein). 

+ Histor ‘que: 

e 86/11/21: P.D. 6 J.T, conception & codage 

- 86/11/24: P.D0. ajout de documentation 

. 86/11/29: P.D, & J.T. gestion de la video HPIL 


hK«pCs0 
Modification du 86/11/29 


Ce poll est destine à court-circuiter le display -driver 
(de m.,.) du HP71. Quand lea touche [g]!{-2] est detectee, 
c'est nous qui cholsissons la position d'arrives du 
curseur. Le probleme est de faire comprendre ca au sacdule 
HPIL. 


Ce driver se comporte d'une maniere plus propre que celui 
interne au HP71, Il saiL jusqu ou ne bas aller quand le 
sequence ESC CTRL € lui arrive. Il n'y a done pas besoin 
de : empecher d'agir. Maïs Cecil suppose de l'activer 
expiicitement, li n'es: plus appele par ie driver du HP71 
mais par nous. 


- 
+ Comme dans le display-driver du HP71, nous appelons 
° d'acord i HPIL : 
_ 
7630 gosub »ILFART 
+ Puis, nous gerons le LCD. 
. 
+ Recherche dans DSPMSX pour avoir la position du premier 
* Caractere non protege & partir de la fin. 
- 
ee j :e 0 : 
e 1 :» 95 : 
+ while (1 >° Q} and 
. {{(dspnask{i] »: protected) or (display [1] = 0)) 
+ do 
e. begin 
. 11 dspask{i] # protected then } :+ 1 : 
. L 1e 1°1 : 
e end : 


11 10 then exit poll ; 


FINPUT : POLL HANDLER ‘pol .as) 
v2.0 TOUCHE {gj[-2} : 


+ 11 #0 then curseur :" 


. eise curseur :+ : 
11Frs LC(2) 95 
AES B+C B BCB) :- 1 
1F00000 D1=:(5) (=2DSPBSFE)-2 caractere cour ant 
AFO h°0 e ACS) :e 0 : masque courant :"= 0 
e AB): Q : j := 0 
1800000 DO=(5) (°DSPMHSK) 
6F20 GOTO nKD070 


Dans la boucle, les assertcions suivantes sont vraies 


A(S}) = masque courant (mis à jour à la fin) 
A(B) = j 

B(B) » 1 

CtS) = DSPMSK !IP(1/4)] 

00 = “ OSPMSK [IP(1/4))] 

D1 + * 2SPBFS ji] 


nKO060 


+ Oblenrion d'un nouveau DSPASK 41 necessaire. ainsi qu'une 


* regenerait:on du masque courant. 
- 


gac A0 s 

co GOYES hKD062 

B44 Azh°i S 

1564 Ce0ATO 5 

160 00-00 : 
nKD062 


+ Test de la protection 


ACS € s Im abime HS) 

9E44 3*36A 5 BCS: ‘+ s1 dspmsk!i] * protected 
® *iors +0 
. inon 9 

340 7B#9 - 

oo GOYES AnÆD065 Pas la peine de continuer pour la 
. position 1 s1 le caractere est 
- protege. 


+ La position 1 n'est pas proteges. 


14F C«DAT1 B 

96E 7C20 B 11 y à un <aractere 

31 GOYES nKD080 

AE « AB B 1.1 

1C1 nKD06$ 91+D1- 2 : 

A4 AAA 5 Masque mis à jour 
nkD070 

A6 B=3-1 8 

so0 GONC nKDo60 
- 
+ On est sorti de ;a boucle sans avoir rien trouve. Tout le 
+ display est done protege. OÙ aucun caractere n'a encore 
- ete introduit. 
-. 
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0352 00170 
02:53 00172 
0354 00172 
0355 00172 
0356 00172 
0357 00172 
0358 00172 
0359 00172 
0360 00172 
0361 00172 
0362 00175 
0363 00177 
0364 00177 
036% O0017A 
0366 0017AÀ 
0367 0017A 
0368 O017A 
0369 0017À 
0370 00181 
0371 00184 


" 0372 00187 


0373 00187 
0374 00187 
0375 00187 
0276 00187 
0377 00187 
0378 00187 
0379 00188 
0380 O018E 
0381 00191 
0382 00194 
0383 00197 
0384 00198 
0385 0019E 
0386 0019€ 
0387 0019E 
0388 0019E 
0389 0019E 
0390 0019E 
0391 001A2 
0392 001A6 
0393 001A8 
0394 0018 
0395 001A8 
0396 OOLAE 
0397 00180 
0398 001B4 
0399 00184 
0400 00188 
0401 O01Bs 
0402 00188 
0403 00188 
0404 00188 
0405 00188 
0406 00188 
0407 00188 
0408 00188 
9409 o01Bs 
0410 00188 
0411 00188 
0412 00188 
0413 00188 
0414 00188 
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D415 00188 
0416 00188 
0417 00188 
0416 O0018BF 
0419 001C2 
0420 001C5 
0421 001C7 
0422 001C7 
0423 001€ 
0424 001CC 
0425 001CC 
0426 001CE 
0427 001DS 
0428 001D5 
0429 001DC 
0430 001DF 
0431 O001E3 
0432 001E3 
0433 001E7 
0434 O01EB 
0435 O01ED 
0436 O01ED 
0437 001F4 
0438 001F7 
0439 001F8 
0440 001F8 
0441 001FD 
0442 00204 
0443 00204 
0444 00207 
0445 00209 
0446 90208 
0447 00208 
0448 00208 
0449 00208 
0450 00208 
0451-00208 
0452 00208 
0453 00208 
0454 00208 
0455 00208 
0456 00208 
0457 00208 
0458 00208 
0459 00208 
0460 007208 
0461 00208 
0462 00208 


v2.0 


36c 
50 


AE4 


1800000 
B64 
148 


1900 
14E 
BéE 
550 


1500 
14C 


1300 
1563 
0A 


648 
841 
09 
1543 


6rsr 


v2.0 


1800000 
142 

SAS 

00 


DB 
108 


24 
800000 


1500000 
301 
15C0 


3130 
7020 
20 


1800000 
300 
15c0 


24 
sF00000 


118 
07 
91 


0463 00208 AEA 


0464 0020E 
0465 00215 
0466 00218 
0467 0021AÀ 
0468 9021C 
0469 9021C 
0470 0021C 
0471 0021C 
0472 007Z1C 
0473 00721C 
0474 0021C 
047$ 9021C 
0476 9021C 
0477 0021C 


1800000 
146 

06 

o1 


FINPUT : POLL MANDLER «pol as) 
TOUCHE {g]{-?] 


RTNSXM 


- On est sorti du WMILE, 


hKDo80 


11 ÿ#0 then j :" ! 


7h80 B 
GOYES hnKD090 


LEE B ÿ == 4 


curseur :" j 


hKD0930 


DO:(5) =CURSOR 
Arhel B Programnation heuristique ‘ 
DATOsA B 


Calcul de FIRSTC (premier caractere à afficher sur la 
fenetre de 22 caracteres du HP71) 


FIRSTC :+ CURSOR : WINDLN si c'est possible 


DO*(2}) “W1NDLKN 


C-DATO B 

CrA-C 8 C(B) :+ CURSOR - WINDLKH 
GONC FST#0 

C0 B 


FSTe0 DO«(2} =FIRSTC 


DATO“C 8 


Les instructions suivantes (modifications sur ST) sont 
des ordres donnes au display driver 


DOs(12) (=DSPSTA)*3 
C=DATO X 
ST«C 


ST-+0 RoChFC On à change FIRSTC 
ST=0 BitsOk Il faut reconstruire le display 


C°ST 
DATOeC X Dans les 12 bits du display driver 
GOTO RIEN interception 


ILFART 


But: Envoyer le curseur a l'extreme droite sur la video 
HPIL courante. 

Entree: - 

Sortie: 

Abime: À-0, DO, D1, R3, ST 

Appelle: BDISPJ (HPIL display driver }, RCRSTK, RSTKCR 

Niveaux: 0 (5 sauves par RCRSTK) 

Detail: D'est sauvegarde dans A3 

Histor ique : 
86/11/29: P.D. 6 J.T. conception & codage 


FINPUT : POLL HANDLER (pol .as? 
TOUCHE ({g]{-?} 


"ILFART 
dO=(5) +DSPCMX 
a-dat0 «a 
a.0 4 
rtnyes 
cud & 
rec 
p" u Sauvegarde 5 niveaux de piie 


Qosbvl °RCRSTK 


d0e(5) *ESCSTA 
leti) EscSti 


datO=c 1! 

ic(2) 3 CTAL C 
gosub ILSEND 

pe 0 


d0=(5) *ESCSTA 
let1}) Esesto 
datO=c 1 


pe « Restaure les niveaux de piie 
gosbvi °RSTKCR 


cer3 
dec ni 
rtn 


RO RO RO RROO OOo oceceeeovesessms 


ILSEND 


But: appeler directement le display-driver du module HPIL 
Entree: 
- ÊiB: »* caractere à afficher 
Sortie: - 
Abime: A-0, DO, D1. ST 
Appelle: BDISP]J (#F3637 dans : 'MPIL:1B) 
Niveaux: 5 
Detail: 
le controle est rendu a la routine appelante directemer: 
His®=or ique : 
86/11/29: P.D. & J.T., conception & codage 


D OROORRRR en 00000 000000000000 een eceuese 


ILSEND e=c b DATA S8SYTE 
d0-(5) -DSPCHX 
cedat0 a 
tsthkece 
rtn GOVLNG +BDSIPJ dans 1 HPIL 


CERLLELLLELLILLLELELIEILIIELILELLELLILLLLLLELLLLLLLELLLLLLELLELLRLELRESS 





hKD100 


But: traiter lis touche [RUN] quand on est dans SIMPUT. 

Entree: 

Sortie: - 
La touche est interceptee, pour inhiber la definition 
éventuelle de la touche [RUN]. Chez moi. j'ei toujour: 
un DEF REY #46. ÆUN : 
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Fage 010 FINPUT : POLL HANDLER (pol .as) Page 012 FINPUT : POLL HANDLER «poil .as) 
ASEUH ASS. V2.0 TOUCHE {g]!:)] AREUH ASS. V2.0 sn... SYMBOL TABLE 
0478 902!1C ". Pas vous ? 

0479 0021!1C + Appe:le: kAUN (tombe dedans ) Listing : 1ist/pol.al 
0480 0021C * Historique: 

248: 9021€ e 86/12/02: P.D. 6 J.T. conception 6 codage Date : fon Mar 16 11:52:06 1987 
0482 0021c RO R RRR R  nR nn mme. 
0483 0021€ Érrors : 000 
2484 299210 1F00000 hKO0100 dis=(5) (°DEFADR)°2 

0485 00:23 AC2 c….0 ‘ 

0486 00226 12554 datisc s 

9487 O00:2A 170 disdis 1 Areuh Assembler/Linker V2.0, (c) P. David 6 J. Tatllandier 1986 Parts. France 
2488 00:20 7200 gosub hKD110 

2469 00231 FO con(2) 15 RUN 

2490 900233 07 nKD110 cerstk 

2491 00235 145 datisc «a 

0492 00:38 850 srei 0 

2493 00238 821 xm-0 

0494 O023E 01 a 

0495 00240 

0496 20240 Rene ee trees erescesesesercee 
9497 90240 « nFco00 

0498 007240 . 

G499 00240 »* But: traiter le poll de configuration 

0500 90240 + Entree: - 

90501 00240 - Sortie: - 

2502 00240 « Detail: 

0503 09240 . Ce poil est la pour traiter le cas (peu frequent) ou 
0594 00240 . l'utilisateur fair INIT quand 1] est sous FINPUT. Si 
2525 930240 . l'on ne fait rien, les touches de curseur ([g][-2] et 
35236 00240 e. {-2]), ainsi que la touche [RUN] sont toujours 

2507 00240 . interceptees. Lorsqu'une configuration intervient, on 
2598 001740 . est sur que FINPUT n'est pas activee. On peut donc 
2509 00240 . mettre le flag à 0 sans autre precaution. 

25:0 90:40 + Histor que: 

9511 90240 . 86/12/02: P.D. & J.T. conception & codage 

0512 00240 ". 86/12/02: P.D sjout de documentation 

908:3 00240 RO OR OR OR RO RO RO Rem nee eemereereteseeesee 
25:4 090240 

05:5 00240 J00 NCFGI0 let1) ‘*INSMSK complement à un de =!NSASK 

0516 002435 :800000 0-5) «INSINP 

05:7 0024A :SAO ardato ! 

0518 29024Ë 9E06 araéc p 

0519 00252 15C0 datO®=e ! 

2529 00256 00 rrtnsxn 

0521 00258 

0522 00258 end 
Page O1i FINPUT : POLL HANDLER «(pol .as? 
AREUH ASS, V2 0 msss SYMBOL TABLE =. 

Bit sOk 00001 Abs 0006 - 0395 
*CURSOR Extern Ukn - 0152 0369 
:0EFADR Exten Ukn - 0494 
0SPSFE Exten Un - 0294 
+DSPCHX Exten Ukn - 0417 0464 
:DSPMSK Extrn Ukn - 0159 0297 
:DSPSTA Extrn Ukn + 0390 
sESCSTA Extrn Ukn - 0428 0436 

EscSto 00000 Abs 0009 - 0437 

Escesti 00001 Abs 0010 -+ 0429 
*FIRSTC Extrn Ukn - 0383 

FSTe0 00197 Rel 0383 - 038: 

FiLeNd 00258 Rel 0522 - 
2ILFART 00188 Rei 0416 - 0271 
*INS: NP Extrn Ukn - 0104 0516 
"INSMSK EÉxten Ukn - 0107 0515 

ILSEND 0020EË flei 9463 - 0433 

NoChFC 0000B Abs 0007 - 0394 
*POLHND 00000 1 0031 - 
RCRSTRK Extrn Ukn - 0426 
*RSTKCR Extrn Ukn +  D44i 

RIEN 00114 Bel 9220 - 0399 

Tnsxe 00084 Rei 0122 - 0:73 

Rtnsxa 0011C fRei 9224 - 0192 0205 

JERten 00047 Rel 9072 - 0065 0072 

VERSSsL 00037 Re: 071 - 0065 9072 
*HINDLN Extrn Jkn + 0378 

nCFCoo 00240 Re: 21515 + 9042 

NCCNEG 00019 Re: 042 - 003? 

"KSS00 20086 Aei 2:14 - 91!:8 

nKO0 51 2008A Àe 1295 - 0121 

AKkS0:9 J008E Re, 2144 - ©:: 

nkDCS0 OO11E el 2249 - 92114 

=«K0060 O013E fe: 1319 - 9346 

"KOCSi 0014D Re; 2320 - 0316 

«5755 00:64 Rei 142 - 0329 

"KO 72 0916ÀA Re! 0544 - 0298 

«2080 0C172 Re: 0157 - 5338 

n«K=c90 2017A Bei 1368 - 9362 

nKO: 20 0021 el 2484 - 9:25 

rKC1:0 00233 Re! 92490 - 0488 

nKY2EF 90042 Ael 2103 - 0034 

nVERSO 00010 Re; 2062 - 0039 

nVERS: 00048 Re; 92073 - 0068 
°K=FART Extrn Ukn - 0116 
*kERT Exten Jkn + 01:13 
k=2RUN Extrn Jkn - 0119 

LIT: 000ËZ ei 2187 - O:82 01e5 
°PCINEG Exten Jkn + 0035 
22KYOF Extrn Ukn - 0032 

reste 000FS8 fe] 0199 - 9179 

rstic 00101 ei C©203 - 0208 

rste0 0010€ ei 0207 - 0202 

rinsxe 00017 Rei 0040 - 0110 
Source poli as 
7 30°. 20! «c 
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Fage 001 FINPUT, EVALUATION DES ARÇGUMENTS (bas ,as} 
AREUH ASS. V2.0 
000! 00000 title FINPUT, EVALUATION DES ARÇGUMENTS (bas ,as ? 
2002 00000 . 
2003 00000 » Format des “dope vecteuuuurs" made in France 
0904 0C000 = 
0cos 00000 + 00-03 : nombre d'elements (1..n) 
0006 00000 + 04-08 : pointeur vers les donnees 
0007 00000 + 09-12 : longueur max des elenarnts 
0808 00000 “ 
0009 00000 “DOPEB$ EQU { « TRFMBF }+00 13 quartets 
95010 00000 *0OPEDS EQU (= TRFMBE )°13 13 quartets 
0011 00000 *DOPEPS EQU ( -TRFMBF }+26 13 quartets 
2012 00060 °DOPEA EQU (+ TRFMBE }+26 27 quartets 
C013 00000 .n EQU (= TRFMBF )°53 $ quarters 
00:4 00000 e 
0015 00000 = 11 reste 2 quartets à ("TRFMBF)-58 qui sont utilises iors 
5016 00000 - de la compilation (fichier comp.as ) 
09017 00000 . 
5018 00000 
0019 00000 °DOPEIS EQU { -STATAO )-00 13 quartets 
0020 00000 °DCPEMS EQU (= STMTRO )-13 13 quartets 
002: 00000 “DOPEUS EQU {*STMTRO )- 26 13 quartets 
22 00000 * 1i reste } quartets à (+STMTRO )+39 
0023 20000 - correpondant à ("=STMTDI )}+02 
0024 00000 
Page 002 FINPUT, EVALUATION DES ARGUMENTS (bas .as? 
AREUH ASS. V2.0 UTILITAIRES 
2026 ocooc PPTLLLTLILILILILILIILILIILLIILLLILLLLLLLLLELLLLLILLLLLELLLLELLLELLLLLLE. 
2027 00000 «+ ÉLACPY 
0028 920000 . 
2cc29 00000 + But: copier !l'element Y#(1) dans X#(1) 
6030 00000 + Entree: 
2031 00000 . + C(A)D «1 
0032 00000 . - DO = ” dope vecteuuuuvuuur de Y$ 
0033 00000 . - Di + “ dope vecteuuuuuuuur de X$ 
0034 00000 + Sortie: 
0035 00000 . - AA) = adresse de Y#(1) 
2036 00000 e - BA) » (LEN(CYS(1)) + 2)e2 
2037 00000 . + C(A) » adresse de X#(1) 
2038 00600 . Poe 0 , 
0039 00000 + Abime: ÀA-D, DO, Di 
2040 90000 « Appelle: GETxs1, MOVE-M 
0041 00000 + Niveaux: 1 
2042 90000 + Historique: 
2043 00000 . 86/09/0$: P.D. & J.T. conception & codage 
2044 90000 . 86/11/24: P.D. integration dans bas.as 
0045 20000 PRLLLILLILILLIILLLLLLILLILILELLILILLELILELELLILILLILILLLILLLILLILLELLLE) 
2C46 00oc00 
0047 C00000 97 sELACPY Dec L DA) := ! 
23948 900002 ?7621 GOSUEB °GETx$l DO :-+ * Ys(1) 
00493 00006 1:36 CDCEX 
0050 00009 137 CO1EX D1 :e * Ys(l) 
5051 0000C€ :34 DOC D0 := dope -vecteuuuuur de X$ 
2052 9000F 928 C*D A 
2023 Oo0011 7711 GOSUB "GETxs! CA) »« DO := 7 Ks(!) 


2254 2001 
2055 900!:5 
206 30015 
0c$7 90015 
=2258 200185 
2055 20015 
2069 20C:5 


CA) = 00 = “ XS(1) = dest. address. 
D1 = “ Ys61) 
er 11 faut faire A$(1) : Y#(1) 


206: 90918 e SIA) :e SLEN(YS(I)) + 2) e 2 

3062 2001$ . 

2063 920015 DC A=0 A 

:C64 00017 :58J Az=0AT1 4 

206% 90018 £a AsAs1i À 

2266 0001D E4 AuA-t À 

2667 O0001F C AshA-h À 

2C68 00021 D8 BA À 

0969 90021 

0070 00027 133 AD1EX ACA) := source address (Y3(1)) 
207: 90026 

20972 00026 6Da0000 COVLAC 2MOVE-A 

02973 00020 

227a 00020 RONDS OR OR RO RON 
297% 0002D + evlary 

2076 00020 . 

5077 00C2D * But: evaluer ce qui est apres ia virgule pointes par D0, 
5c78 0c022 . er seion :e cas : 

20°9 00020 . 51 vecteur de Chaines, fabriquer le “che vecteuuuuur * 
2289 20010 . si chaine simple. fabriquer un pseudo-vecteur d un seul 
20681 90029 Le *.ement 

2082 20020 . 

2082 20020 - Entree: 

2084 20020 e 20. À 

2085 90020 “ - MTHSTK = sommet de la Math-Stack 

2086 900720 + Sortie: 

2087 000:2 ° - D0 * “ pastee | expression 

: 283 ‘'sdcés . lin. « <Cpe'vecreuuuuuuuur ‘ar :que 








Page 003 FINPUT. EVALUATION DES ARGUMENTS (bas .as ) 
AREUH ASS. V2.0 UTILITAIRES 


0089 00020 9 - MTHSTK actualise pour prendre en compte une eventue)ie 
0050 0002D e longueur d'element de Lableau, ou pour “oubiier* le 
0051 00020 . “dope -vecLeuuuuuur". 

0092 00020 « Abime: À:°D, RO-R4, ST, DO, D1. Function Scratch 

009 0002D » Appelle: EXPEXC. RCL4, RCLS, BSLA, BSLS, POP1S 

0054 0002D « Niveaux: 5 (EXPEXC) 

0095 0002D - Historique: 

0096 00020 . 86/08/30: P.D. & J.T. conception 6 codage 

0997 0002D e 86/11/24: P.D. ajout de documentation 

0098 00020 RO RRRRNRORRORRRRR mn .e 
2093 00020 

0100 00020 6F00000 evlary GOSBVL *EXPEXC 

0101 00034 AF1 5-0 Es 

0102 00037 31F1 LCHEX 1F tableau alpha ? 

0103 00038 966 TherC B non 

0104 O0003E 03 GOYES evry20 {2 avenue du Lac, en fait...) 
0105 00040 . 

0106 00040 - string array descriptor 

0107 00040 . 

0106 00040 172 D1-Di+ 3 DI := * maxien 

0109 00043 7631 GOSUB RACLA 

0110 00047 177 D1-D1+ 8 D1 :" * pointer 

011: 0004 7D31 COSUB RCLS 

0112 0904E 1C3 D1°D1- 4 D1 :* ” din 

0113 000$1 7821 GOSUB RACLA 

0114 00055 1C4 DisD1- 5 D1 :+ “ option base 

0115 00058 1574 CeDAT1 S 

0116 000€ 94E ?Cs0 s 

0117 0005F 90 GOYES evry10 

0118 00061 23 Pe 3 

0119 00063 81% B=B+1 

0120 00066 20 Ps 0 

0121 00068 17D evry10 Di+D1+ 14 

0122 00068 5CJ GONC evry30 B.E.T. 

0123 O0006E 

0124 0006E : 

012% 0006E + Attention : 

0126 0006E - Cette erreur ne devrait jamais arriver... 

0127 O0006E e 

0128 0006E 31F0 evry20 LCHEX OF Chaine aipha ©? 

0129 00072 966 ?AaC ë 

0130 0007% 76 GOYES daratp Ron, mais je ne sais pas comment 
011 00077 e cela serait possible... 

0132 00077 . 

0133 06077 + On a trouve une expression alphanumerique sur la pile. 
0134 00077 « Nous allons la transformer en vecteur de un element. 
0135 00077 . 

0136 00077 8F00000 GOSBVL =POP1S Di :+ “ sommet de la Math-Stack 
0137 0007E e 

0138 0007E «+ La longueur de la chaine doit tenir sur 2 octets, d'ou ie 
013% 0007E * test de la longueur «20000 quartets. 

0140 0007E e 

0141 0007E 3400002 LC(S) #20000 

0142 00085 8BE 7AdeC À 

0143 00088 BS GOYES strovf 

0144 0008A . 

0145 0008A « C'est une chaine, et elle est de bonne longueur 

0146 0008A e. 

0147 0008AÀ 81C ASRB A(A) :* longueur en octets 

0148 0008D 1C3 Di-D1- 4 D1 := - longueur de Vs(1) 

0149 00090 1593 DATI-A 4 LENCV#11)) :* LEN(Chaine }) 

0150 00094 DS LE 4h 

0151 00096 72D0 GOSUB BSLS 

Page 004 FINPUT. EVALUATION DES ARGUMENTS (bas .45? 

AREUH ASS. V2.0 UTILITAIRES 

0152 0009AÀ 137 CD1Ex 

0153 0009D 133 D1 «€ CtA) = D1 :° “'math-stack 

0154 O00A0 DS B=C A 

0155 000AZ 79C0 GOSUB BSL4 

0156 O00A6 ES B=B+1 À 

0157 O00AS . 

0158 OCOAS . 

0159 O00AS + terminaison de evlary. On attend dans B(W) le “dope - 
0160 000AS - vecteuuuuur* et dans Di l'adresse du sommet de ia 
0161 000AS = Fath-Stack. Cette adresse sers sauvegardes en MTHSTRK. 
0162 O00AS e 

016) O00AS 137 evry90 CD1EX Evry Cedex en fait 

0164 000AB 1F00000 D1=(5) -ATHSTK 

0165 00082 145 DATIeC À Sommet de la Math-Stack 

0166 0008% ® 

0167 00085 + Verification du nombre 4 elements du tableau en cours 
0168 00085 * avec If 

0169 00085 - 

0170 00085 1F00000 D1=(5) on 

0171 000BC 143 A*DAT1 À 

0172 O008F 23 Ps 3 

0173 000C1 914 ?A4B sr 

0174 000C4 90 GOYES erdin 

0175 G00C6 20 pe 0 

0176 000C8 . 

0177 000C8 + On remet les =hoses en place 

2178 000C8 . 

0179 000C8 135 D1 «€ D1 -* sommet de la Math-Stack 
0180 000CB 01 RTA 

2181 000CD 

0182 000CD 20 erdin P- © 

2183 O00OCF 130000 LCI4) 1Isid'-i.e1DIM; “eDinms- 

9184 000D$ 8D00000 GOVLNG :B8SERR 

0185 000 

9186 0000C 8000000 datatp GOVLAG +8DATTY 

2:87 000E3 1100 strovf LCI2) seSTAROV 

0188 000€7 S8D00000 GOVLAG *MAFERR 

0189 QO0EE 

0190 O00OÉE CLRLLLLLILILILILLILLLLLLLIILLILILILLLILILILLILILLILLLLLLLLLLELLLLLL ELLES 
0191 OOCEE + GETMSI. GETIS1. GETUSI. GETBSI. GETDSI. GETPSI. GETxs1! 
0192 O00EE « 7 

0193 900EE »* But: renvoyer l'adresse de !l'element ! du tableau M$ 
0194 OO0EE . (resp. 14, US, Bs, Os, Ps). 

0195 OO0EE «+ Entree: 

9196 900ËE . - C'AJetï! 

0197 OO00EE + Sortie: 

0198 OO0EE - + CIA) + DO = * long. de Tsil) 1T#eM8,13.US,88.D%.P$ ) 
0199 OO0EE + Abime: À-C, 00 

0200 O00EE + Appeile: MPY 

2201 OQO0EE - Niveaux: |! 

0202 900ÉE + Detail: La routine GETx$1I permet de retrouver l element ! 
0203 OOC0EE e du tableau dont le dope-vecteuuuuur #s%t pointe par DO 
0204 OOCÉE + Histor :que : 

0205 900EE . 86/08/31: P.D. 6 J.T. conception & codage 

0206 O00EE SC RRRR ORAN RRmenooemeooomenomerenetottomeenosesseens 
0207 OOCEE 

020$ 200EE 1800000 =GETP#I D0O+(5) +DOPEPS 

0209 000F5 660 GOTO GETO10 

0210 000F9 1800000 =GETDSi D0»*(5) *DOPEDS 

0211 00100 6820 COTO GETO10 


0212 00104 1800000 "GETBSI D0-+(5) *0O0PEBS 
0213 00108 6020 GOTO GETO10 
01:14 920:9F :800000 1GETJS: JO: CAPE US 
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Page 


oc 


AREUH ASS. 


02:5 
0216 
027 
02i8 
9219 
0220 
9221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
9230 
2231 
0232 
0233 
0214 
0225 
9236 
0237 
0:28 
0225 
0240 
0:41 
0242 
0243 
0244 
9245 
CI46 
2247 
0248 
2243 
0250 
025: 
C2%2 
293 
0254 
2255 
0256 
2257 
9258 
2259 
3260 
2261 
0262 
0263 
0264 
0255 
0266 
0267 
0268 
0269 
2270 
9271 
0272 
2273 
274 
0275 
2276 
0277 


Page 


00116 
0011A 
001721 
00125 
oo12C 
oo12c 
o212C 
0012E 
09130 
90133 
00135 
00138 
00138 
0013F 
00141 
00143 
00147 
00145 
0014c 
0014F 
00151 

00154 
00156 
00156 
00156 
00156 
00:56 
00156 
00156 
20156 
00:56 
00156 
20156 
00156 
00156 
00156 
00:56 
00156 
20156 
20156 
00156 
00156 
00:58 
ca1isc 

901SE 
00160 

00162 

00165 

00167 

0016A 
0016C 

2016c 

0016C 

20160 

0016C 

0016C 
0016C 

0016C 

o016c 

0016C 

0016C 

2016C 

0016C 


206 


AREUH ASS. 


2278 
2279 
2280 
2281 
0282 
2283 
0284 
22685 
2286 
2287 
2298 
2289 
0290 
0:91 
0292 
2293 
2294 
0295 
0296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2394 
1305 
2306 
9307 
23c8 


oo16c 
0016C 
o016c 
0016F 
00172 
00175 
00178 
0017B 
oc17D 
0017D 
0017D 
00170 
20170 
00170 
0017D 
00170 
00:7D 
00170 
00170 
o0i7D 
0o17D 
2017D 
ag170 
00170 
0017D 
00170 
20:70 
2018: 
10183 
20187 
20189 
20188 
20168F 
20197 
20134 
20196 
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6510 
1800000 
6A00 
1800000 


D2 
:5È3 
E6 
E6 
cé 
132 


134 
01 


v2.0 


sF1 
BF: 
sr: 
BF1 
BF1 
01 


7EEF 
22 
1$F3 


ab 
…. 


91 
700F 
147 
25 
21 


FINPUT, EVALUATION DES ARGUMENTS «bas as) 
UTILITAIRES 


GOTO  GETO10 


°GETMS] DO:(8) °DOPEMS 


GOTO  GETO10 


*GETI$] DOr(5) -DOPFEIS 


rCETxs! 

GETO10 CeC-1 À 
BC À . 
C.0 a ! C(15-5) := 0 
CB . À ! 
DO+D0-+ 9 DO :* ” maxien 
h.0 N 
A"DATO 4 A(W) :+ maxien 
Arh°1 À 
AeA°1 À A(W) :: maxlen + longueur 
COSUB mpy A,B,C := offset en octets 
Arh-A À ACA) :+ offset en quartets 
D0:D0: 5 DO := * pointeur 
C«DATO À CA) :e * T#(1) 
CrC+A À CCA) :e * Ts(1) 
DOC DO: » = Ts(1) 
RTN 

0 RS ne mnenesoneosmsussee 
GETEST 
But: renvoyer l'adresse du Premier caractere d'un element 
de tableau. 
Entree: 
* DO * adresse de la longueur de l'element 
Sortie: 


°GETFST C=0 


‘ 


nn 


CA) * DO = adresse du premier caractere de l'element 
suscite. (Cf Math-Stack, 1] faut faire DO=:D00- 2 avant 
utilisation) 
* AiA) » D0 en entree 
Abime: A(A), C(A), DO 
Niveaux: 0 
Histor ique: 
36/09/02: P.D. 8 J.T. conception & codage 


C»23ATO 
CeCei 
CoCei 
Cecec 
ADOEX 
CsAeC 
DO «€ 
RTN 


> >>>} 


BSL4. BSLS 


But: decaler B à gauche de 4 (resp. 5) quartets) 
Entree: 
B(W) 

Sortie: 

- BW) 
Abime: BW) 
Niveaux: 0 
Histor :que: 

86/08/31: P.D. & J.T. conception & codage 


FINPUT, EVALUATION DES ARGUMENTS (bas .as? 


ILSTAIRES 


COCO ROAD eee memes obteobtocesere 


BSLs BsL 
BSLA BSL 
BSL 
BSL 
BSL 
RTA 


£LL£LLcE 


RCLA4. RCLS 


But: decaie B(W) de 4 (resp. 5) quartets, et y place les 4 
(resp. 5) quartets pointes par D1. 
Entree: 
+ BW) + registre a decalage 
- D1 = “ zone a inserer dans B 
Sortie 
B(W) » decaie 
Abime: BW), C(A) 
Appelle: BSL4 (resp. BSLS) 
Niveaux: : 
Historique: 
96/08/30: P.D. 68 [.T. conception & codage 


RCL4 GOSUB BSL4 


C9 A 
C2DAT1 4 
B=B°C À 
ATN 
RACLS COSUB BSLS 

CeDOAT: À 
B2€ A 
RTN 


Page 
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0315 
0116 
0317 
0318 
0319 
0320 
0321! 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
033? 
0333 
0334 
033$ 
0336 
0337 
0338 
033$ 
0340 
034] 
0342 
0343 
0344 
0345 
2346 
0347 
0348 
0345 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0356 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
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00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00196 
00198 
001A0 
001A0 
001A0 
001A0 
001A0 
001A7 
D01A7 
001A7 
001A7 
001A7 
001A7 
001A7 
001A7 
901AA 


0378 
0379 
0380 
0361 
0382 
0383 
0384 
0385 
2386 
0387 
CELL] 
039 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
2405 
0406 
2407 
90408 
0409 
9410 
9411 
9412 
24:3 
0414 
041$ 
2416 
0417 
0418 
0419 
0420 
9421 
0422 
0429 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
CLEL 
LE 
1440 


00180 
00187 
00187 
001BA 
00180 
0o1co 
c0o1c0 
co1co 
001C0 
001C3 
voice 
001CA 
ou1cD 
001CF 
001CF 
00102 
00105 
001D. 
oc1D8 
00108 
00108 
001D8 
001D€ 
001E1 
O001E4 
001Es 
001E8 
001ED 
001ED 
201ED 
901ED 
001FQ 
001F4 
001F? 
o01F8 
Q01FE 
20201 
00201 
00205 
00208 
0020c 
0020F 
00213 
00216 
00218 
0021A 
00210 
0021F 
00223 
00223 
00227 
00227 
00:28 
0022E 
20230 
20230 
00230 
00230 
00233 
00237 
20:9A 
9027E 
2074: 


00000 
00000 


sF00000 


sFro 
330000 


v2.0 
#D00000 


136 
135 
130 


30€ 
170 
1530 
06 
E0 


170 
143 
131 
SAE 


1co 
AF1 
148 
31F1 
66 
C3 


172 
798r 
177 
709F 
133 
131 
E0 


1C3 
717F 
1C4 
1574 
S4E 
30 
23 
B15 


6E£40 
698E 


31F0 
366 
B1 


172 
764r 
177 
7D4Fr 
:33 
£9 


FINPUT, EVALUATION DES ARGUMENTS (bas as? 
SINPUT, EXECUTION ROUTINE {debut } 


OR OR RO TR mn mo 


SINPUTe 


* But: implementer un gestionnaire de masque d ecran 
* ADime: Lout Ce qui est abimable par un sLatement 
* Niveaux: Lous ceux qui sont abimables par Un statement 
* Algorithme: 

. evaluer 1%, creer le dope: vecteuuuuuuur 
. evailuer M$, creer le dope: vecteuvuuuuur 
e. 51 P$ n'existe pas 
. alors creer un pseudo Ps : Psi1):-STRS(LEN(M#(1))S“F) 
e sinon evaluer P$, creer le dope -vecteuuuuuuur 
e finsi 

e Initialiser le tablesu D$ (DS(1) :+ M$(1)) 
. Initialtser le tableau U$ (U$(1) :+ NULLS ) 
. Compller le format dans le tableau Bs (Bit Map) 
e evaluer À 

e Vertfler que M$ ne contient pas de car. non affichabies 
e. 4 :e 1 ;: 

. repeter 

e afficher la chaine DS(1) 
e C=) 

e Placer B$(1) dans DSPMSK 

Le editer la ligne 

° selon ia derniere touche sppuyee 

e [*]): 4 :e si 121 alors 1-1 : 

e (Vi: 1 :e si ltn alors +1 : 

e 1911"): 4 te 1 : 

e [g]{v}): 1 :e n : 

e {(OFF]: sortir avec À :* 0 : 

. [ATTN]: s1 display »* Ms(1) 

e alors sortir avec À := © : 

e° sinon 

. afficher la chaine M#(1) : 

® reprendre & (-) : 

e finsi : 

. [ENDLINE): US(1) :+ display 

: 51 t=#i alors continuer dans {RUN) 
. [RUN]: Us11) :° display 

. sortir avec À :* 1 

e fin selon 

e fin repeter 

+ Histor ique : 

. 86/08/30: P.D. 6 J.T. conception & codage 

. 86/11/24: P D. s*jout de documentation 


REL(S) =FINPUTS 
REL(S) *FINPUTR 
*FINPUTe 


+ Traitement de 14 


- 
GOSBVL *ADDRSS 
. 
* À la sortie de ADDRSS, 
si Cy * 1. la variable n'est pas trouvee 
#1 Cy * 0, la variable est trouvee, et 
DO + B(A) = adresse du registre de la variable 
ACA) * * passes la tokenisation de la variable 


GONC 15005 
LC(4) (#id)-(=e1NOVR) “Var hot Found* 


FINPUT, EVALUATION DES ARGUMENTS (bas .as) 
SINPUT, EXECUTION ROUTINE (debut ) 


GOVLAG =BSERR 


15005 CDOEX C(A) :e ” registre de la variabie 
D1 °C D1 :+° “ registre de la variable 
DOsA DO :" PC 


+ Boucle pour trouver le registre reel de la variabie 


LCHEX E 

19010 Dis-D1: 1 
A=DAT1 P AP) :+ Lype de la variable 
TAC ?P Tableau indirect 


COYES 15020 
+ la variable est un tableau indrect 


D1-D1+ 1 D1 :+ ” “pointer” 
A=DAT1 À AUA) :+ * reg de la var. suivant 
Di =A D1 :" ” reg. de la var. suivant 


GONC 15010 B.8.T. 


+ Fin de chainage 


13020 Di-D1- 1 D1 :* * deux premiers quartets 
B-0 e 
A=DAT: 8 A(B) :+ type de la variable 
LCHEX 1F Tableau aiphanumer ique 
Aec 8 


GOYES 15040 


«+ Tableau (direct ou indirect } 


D1=01+ 3 
GOSUB ACL4 Maxien 
D1-01+ 8 D1 + ” “pointer” 
GOSUB ACLS relative pointer 
AD1EX ALA: + adresse du relative pointe- 
D1-A 
ArA-B À ALUA) == ” premier element 
EL: a B18-5) :+ maxlen : B4 0) :« point: 
Di-01- 4 D1 :* “ dis 
GOSUB RACLA 
D1=01- 5 D1 + “ option base 
CeDATIi S 
7Ce0 s 
COYES 1#030 
P- 3 
BeB+1 P + 1 en option base 0 
Pe 0 
15030 GOTO 15100 


Datatp GOTO datatp 


15040 LCHEX OF 
?hec B 
GOYES 15050 


_ 
+ var iabie directe 


Di -D1+ 3 D1 + * maxien 

COSUB RCLA 

Di-D1- 8 D1 :* “ relative pointer 

GOSUB RACLS relative peinter 

AD1FX AA) » adresse du relative pointe- 
A°A-9 À 1 A * | pren;er +.ement 


Page 
AREUH 


2441 
2442 
24435 
0444 
C445 
2446 
2447 
2448 
Cas 
2450 
245: 
0452 
0453 
0454 
245$ 
2456 
5457 
24:8 
2459 
0460 
245; 
2462 
2463 
5464 
0465 
2456 
0467 
2468 
0463 
0473 
Ca7i 
9472 
3473 
2474 
2475 
2476 
2477 
5478 
2479 
23480 
2481 
C«82 
2433 
2484 
0485 
248€ 
0487? 
1488 
PL LE 
24990 
2491 
2492 
0493 
2494 
0455 
0496 
2497 
1498 
20499 
2500 
2501 
0502 
2503 


Page 


008 
ASS. 


90243 
0024% 
00249 
00245 
00249 
00249 
00249 
60240 
00250 
00252 
00252 
00252 
00252 
2C255 
00:59 
2025C 
06260 
00263 
00266 
00269 
0026€ 
0026E 
0026E 
00271 
00278 
0027C 
0027E 
00281 
20283 
20289 
o928C 
0028C 
2028C 
0028C 
028€ 
0028C 
002935 
20296 
0029A 
G02A: 
002A4 
202A8 
202A8 
0czAS8 
002A8 
002A8 
OC2AF 
00282 
0028 
09287 
00287 
00287 
00287 
00288 
0028E 
002Ci 
o02C4 
oc2Cc8 
oo2cs 
002CF 
002CF 
0o02CF 
002CF 


010 


AREUH ASS 


2504 
2505 
2506 
2507 
2508 
2599 
2510 
92511 
2512 
2513 
0514 
os1s 
2516 
0517 
2518 
25:9 
c:20 
321 
2522 
2523 
2524 
2535 
2526 
2527 
1558 
2529 
2339 
255: 
2532 
533 
2534 
2515 
2536 
2337 
2553 
239 
3549 
LL ES 
2542 
2545 
2544 
2545 
2546 
2547 
2:48 
2549 
55:90 
0551 
2552 
23553 
2554 
-:395 
22:56 
255? 
2558 
25:59 
2569 
2561 
262 
2563 
2564 
2565 


esé 


002CF 
202CF 
002CF 
o02CF 
002CF 
oo2CF 
002CF 
002CF 
o02CF 
oo2CF 
o02CF 
oo2cF 
oo2cF 
002CF 
002CF 
00202 
00205 
og22C 
002E) 
002€S 
002E9 
002ED 
o02£D 
202£0 
202ED 
2C2ED 
207E0 
202E0 
202ED 
202F0 
202F4 
00:F6 
20:FA 
20301 
00303 
20206 
20309 
oc30c 
0030F 
9030F 
20316 
20319 
90310 
0031C 
2c31ic 
0031C 
203:€ 
00320 
00323 
20325 
20329 
2032C 
0032F 
20332 
20332 
20336 
2033A 
003iE 
20341 
00342 
00342 
20342 


574 


v2.0 


31FF 
566 
30 


176 
742F 
1C4 
762F 
BF 1 
BF1 
BF1 
BF: 
ES 


AF9 
1F90000 
15DC 

24 

A6 2 

20 
1£0000 
145 


8r00000 
161 
7390 
1F20000 
AF4a 
159C 


161 
1524 
160 
548 
Ai 


7270 
161 
136 
108 
69C0 


8000000 


v2.0 


136 

108 
8F00000 
1800000 
D2 

iSE3 
1900 


144 
7éiE 

20 

:$AJ 
sF900000 
24 

314 

314 

314 

#14 


8F20000 
304 
816 


3103 
A6 2 

20 

7F9F 
80 
A4E 
$CE 


310% 
ESF 
3155 
768F 


D2 


167 


FINPUT. EVALUATION DES ARGUMENTS (Das .a5? 


SINFPUT, EXECUTION ROUTINE (debut } 
s-A ñ B(8-5) :- maxilen ; Bt4-0) :° pointer 
GOTO 15060 


- Cette erreur ne devrait jamais arriver 
. 


15050 LCHEX FF 
TAsC 8 
GCOYES Datatp 


-. 
- var able indirecte 


OtsDie 7 D1 := * maxlen 
GOSUB RCLA4 
Di:O1- 5% D1 :° - absolule pointer 
GOSUB RCLS 
15060 BSL W 
Est _ 
85L w 
ESL - 
E+B+1 À Dis :° 1 
15:00 Ce.8 W 
Di1+185) *OCPEIS 
DAT1:C 13 
Pe 4 
c.0 P 
Pe © 
Dir(4) en Tant que sn reste en TRFNBF+53,. 
DATLir*C À Dis(2) aurait suffi 


À ce stade, la variable 1% est traitee (ouf) 


J.T. "Yapuquañt" (je cite} 

GOSEVL s»COLLAP Vide La Math-Stack 
D0=D0+ 2 
GOSUB eviary eva:uation de M$ 
D1-15}) »DOPEMS 
LLL E 
DATIsSA 13 

+ P$ ou À ? 
DO«D0+ 2 On passe tCOMMA 
A"DATO S ACS) :* quartet de reconnaissance 
DOs=D0+ 1 
HS s ? 
GOYES PPS010 Pseudo Ps 

- On est devant PS, 

-. 
GOSUB evliary evaluation de P$ 
D0+D0+ 2 J.T. 6 P.D. bugfix <861123.1415) 
CDOEX Sauvegarde de PC dans RJ pour la 
R3eC compliation 
GOTO compilerPs 


stkenr GOVLNG =STKCHR 


- On est devant À. Il faut creer un pseudo P$ par la boucle: 
+ FOR i « nombre-d'elements(Ms) STEP -1 
. P$(1) = STRS(LEN(MS(1)))S "PU" 


FINPUT, EVALUATION DES ARGUMENTS (bas as? 
SINPUT, EXECUTION ROUTINE (debut ) 


+  NEXT ! 
« Ce tableau PS est consrruit sur la Math-Stack. 


PETTLLELIILILIILILIILILLIILLILLELLELLELLELLLE) Lorconerescrreteesesesen….e 
- PPs010 

- 

«+ But: creer un pseudo-Ps dans le cas ou ce tableau est 

. oais par l utilisateur. 

+ Histror:que: 

. 86/08/30: P.D. 6 J.7T. conception 6 codage 

- 87/01/25: P.D. & J.7T. remplace S-RO-0 par TRFMBF 

....e PPTLLLILLIILILIILIIILLILILIILLLILLLELLLLELLLLLLLLLELLLLE EEE ES 


PP3010 CDOEX Sauvegarde de PC dans &5 
R3 


<< 
GOSEVL +#D1MSTK 
DO-(5) +DOPEMS 
C.0Q a 
CeDATO 4 CCA) : 7 nombre d'elements de M$ 
D0=(2) -TRFMBF 
. 
«+ Debut de La soucie ci-dessus expliquee. 
+ 00 = TRFMBF 
e TRFMBE « : 
= PS(!) sera depose sur la plie (pointee par 91) 
PpPs2S0 
DATO®C À CIA) :e ! 
GOSUE "#GETMSI 20 + ” MS(Ï1) (sur La :ongqueur )} 
A.Q A 
A2DATO 4 A(A) + iongueur en hexa 
GCSBVL +HEXDEC AW) = B(W) = CIW) :+ long. en dec. 
SETHEX 
ASRC 
ASRC 
ASRC 
ASRC 
GOSEVL 2D=AVMHS DA: :»° AVMEMS 
LC(1) 4 
CSRC CLS) :. 4 
«+ Boucie interne de formattage asciti de la longueur de MS#1) 
+ On aura, 1 M$e"AREUH" : PS -= -00005PU- 
EE 
PP#07Q LCASC 2° 
CsCeA 8 
As À 
GOSUB stxchr 
ASLC 
Cec-1 S 
GONC PP$070 
LCASC ‘P- 
GOSUB stachr 
LEASC ‘J' 
GOSUB stxkchr 


«+ On met la :ongueur de P$(I) sur la piie 


LERI PSt11% := 7 


Page 
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AREUH ASS 


0567 
os68 
0569 

0570 
0571 

0572 
0573 

0574 
057% 
0576 
0577 
0578 
0579 
0589 
0581! 

0582 
058) 
0584 
0585 
0586 
0587 
0588 
0589 
0590 
0591 

0592 
0593 
0594 
059$ 
0596 
0597 
o59s 
0599 
0690 
0601 

0602 
0603 
0604 
0605 
0606 
0607 
0608 
0609 
0610 
0611 
061? 
0611 
0614 
0615 
0616 
061? 
0618 
0619 
0620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 
0628 
0629 


Page 


00347 
0034A 
0034€ 
0034E 
0034E 
004€ 
00355 
00358 
0035A 
99350 
0035F 
0035F 
0035F 
0035F 
00362 
00365 
00368 
00368 
00368 
0036E 
00377 
00374 
00374 
00378 
0037D 
0081 
2038 
00387 
00387 
00387 
0038€ 
0038E 
008€ 
008€ 
0038€ 
0038€ 
0038E 
2038E 
0038E 
0038E 
0038E 
0018E 
0038E 
0038E 
20378€ 
0038E 
0038€ 
0038E 
0038E 
0038E 
0038E€ 
00395 
00398 
0039C 
0039 
0039c 
0039C 
0039C 
0a39c 
0039c 
0033C 
0039C 
0039 


012 


AREUH ASS. 


0630 
0631 
0631 
0633 
0634 
0635 
0636 
0637 
0638 
0639 
0640 
0641 
0642 
0643 
0644 
0645 
0646 
0647 
0648 
0649 
0650 
0651 
0652 
065) 
0654 
2655 
0656 
2657 
0658 
2659 
2660 
92661 
2662 
2663 
0664 
2665 
2666 
0667 
2668 
2669 
0670 
ü671 
0672 
0673 
0674 
267% 
0676 
0677 
0678 
0679 
2680 
0681 
0682 
068] 
0684 
PLLE 
0686 
0687 
o6es 
0683 
2690 
0691 
1692 


0039c 
0039C 
0039c 
co39C 
0039c 
0039c 
0039C 
0039C 
003% 
0039 
0o39C 
003€ 
0039c 
0039c 
003A35 
003A3 
003A3 
003ÀA3 
003A6 
003AE 
0038: 
00385 
20358 
2038C 
9038E 
203C: 

203C3 
00303 
20303 
003c3 
003CAÀ 
203CD 
003CF 
00302 
20305 
203D8 
203DA 
003DA 
003€: 

003E8 
003E8 
203ES 
903EE 
003F1 

003FS 
003FF 
003FF 
003FF 
003FF 
20402 
20404 
00408 
0040 
0040€ 
0c410 
20414 
00417 
00419 
204ic 
00420 
00423 
00423 
204276 


v2.0 


103 
1503 


1800000 
146 

CE 

BAE 

09 


AF1 
307 
ABS 


137 
135 
7AFD 
DS 


1B00000 
D2 

15E3 
7AED 

C1 


8F00000 


1800000 
AF4 
158c 


v2.0 


sF00000 


Ar2 
324A1 
1500000 
AFO 

142 
7520 


970 
91 


800000 
146 

Ca 

164 

142 

986 

21 


8200000 
5000000 


184 
142 
144 
1800000 
ir00000 


Ar: 
D2 
31C0 
Ds 
TESD 
Ds 
785 
146 
C1 
AF3 
150C 
17C 


AF2 
J1ct 





FINPUT, EVALUATION DES ARGUMENTS {Das as)? 
SINPUT, EXECUTION ROUTINE (debut } 


Di-#Dir « 
DATI1:C 4 


On passe à | element suivant de M$ (MST -1)) 
DO»(5: *TRFABF 

C+DATO À 

CeC-1 À 

*Cs0 À 

GOYES PF$050 


» Creation du ‘dope - VecLeuUuUULUr * 


B-0 wi 

LCL) 7 

Bec P B(3°0):-maxjen 

CD1EX 

D14C 

GOSUE BSLS 

B°c À B(8-$):-maxlen;:B(4-0):#pointer 

DO-(5) *DOPEMS 

C.0 À 

CDATO 4 

GOUSUB BSLA 

B-B+C À B(12-9):°maxlien ; 
Le B(B8-4):"pointer :; 


. B(3-0):-dim 
GOSBVL *AVE»:D! 


nn nn mm mn mm nn mnt nemeemnnnnnnnenenes ne 
= compiiler?s 

" 

« But: compiler le format donne par l'utilisateur (ou 

e construit par SINPUT) en une Bit Map utilisable par le 
. display driver du HP71 (DSPHSK). 

+ Entree: 

e - DOPEPS contient le dope-vecteuuuuuur de P# 

- Sortie: 

. - B$ contient le tableau des Bits map. 

+ Abine: 

* Appelle: fichier comp.as 

= Niveaux: i 

«+ Detail et Algorithæe: voir fichier comp.as 

«+ Historique: 

. 86/11/24: P D. “out de documentat ion 


comptilerPé 
DO=(%) *DOPEPS 
A8 Li 
DATO=A 3 


Preparation des tableaux 
B$ (bit map) Bit mask de DSPASK 
chargement lors de la compilation (seulement lors 
utilisation: PORE dans DSPHASK 
DIM Btin)[12}] 
Ds (Display) copie des caracteres du DSPBUF 
chargement : apres appui sur [ENDLINE) 


FINPUT, EVALUATION DES ARGUMENTS <bas as? 
SINPUT, EXECUTION ROUTINE (debut } 


utilisation: reaffichage du champ par une routine de 
Lype DSPCNA, mais inversee 

DIM Dsini(96] 

Us (User ; : donnee saisie par l'utilisateur 

chargement : apres apput sur [ENDLINE]. par DSPs00 

utilisation: lors de l'appui sur [RUN], chargement de 
14 

DIM Us(n)(96}] 


Les tableaux sont ranges entre OUTES et AVMENMS 


GOSBVL *#OBCOLL 


Tout d abord, yra-t'il assez d'espace ? 


Ce0 “ 

LOI31 (96-2-96-2°12-2)°2 
DO=($}) en 

h°0 N 
A=DATO A 
GOSUB spy 
5-0 A 

?B:0 “ 
GOYES memerr 


A. B. C :+ taille mencire necessaire 


Out. 11 y a suffisamment d'espace __. 
DOs-(5) 
C2OATO A 
CeCsA À CIA) :" nouvel AVMERS 
D0-D0-+ 5 D0":5) AVMEME 

ADATO À AA) :+ AVMÈRE 
7C{A A 

GOYES Ok 
GOVLAG 


GOVLAG 


nemerr 


DO=:20- # 
A-0ATO A 
DATO®»C A 
00:15; n 
D1-+15) «DOPEBS 


D0-(#) AVMEMS 
AA: * adresse de 61 
AVMENMS := adresse de 


capio 
la fin de Us 


" A(A) + “ premier element de Bt 


B.0 “ 

C.0 a 

LC(C2) : Taille d'Un element 
Bec a 

GOSUE BSLS 

BsA A BIA) ‘+ adresse de Bs(1) 
GOSUB BSLA4 

CrCA70 À CiAl en 

Br8.C À 

Ce. s 

DATI1»C 13 

Di=01+ 13 

C0 bi 

Lér2s ‘12e2 02 
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Fañe 013 FINPUT, EVALUATION DES ARCUMENTS (bas as) 
AREUH ASS. V2.0 SINFUT, EXECUTION ROUTINE (debut ) D se v2.0 un FO TRE vies PE a 
2693 OO042A AFE AC EX « 
30420 D7 Dec D D(A) :+ adresse de B$(1) ai re PE . 0493 
7: __ nt nds : evry10 00068 Rel 0121 011? 
2697 00415 78AF COSUB = evry20 O006E Fel 028 0104 
SénC DOS CE rt evry90 OOOA8 Re] 9163 - 012? 
3699 00418 DA AC À sd Extrn Ukn + 018) 0377 
2700 20439 ° Dt meserr 003DA Rel 0667 0655 
0701 00430 AF: B-0 « 2py 003E1 Re] 0668 - 0230 06%2 0697 0719 
3702 00440 D2 CaS à n Unkwm Ukn 0013 - 0170 0469 0649 067) 
C703 00442 3106 LC(2) 96 stkchr 002C6 Bei 0499 - 0553 055% 0561 
23704 00446 DS B-c À strovf 000E3 Rel 0187 014) 
270% 00448 7020 GOSUB BSLS 
27936 0044C Ds EvA A BiA) :+ adresse de Ds(1) 
2707 O044E 7D1D GOSUB B8SLa 
2708 00452 146 C*DATO À CA) en 
C799 00455 C1 B+8+C À 
9710 00457 AF9 C.-B E 
3711 0045A 15DC DATI=C 13 Source : Dbas.ns 
2712 0045€ 
0713 O04SE AF2 C0 NW RE ENT 
2714 00461 314C LCC2) (96+2)°2 
3715 00465 AFE ACEX W CANIN IE ISA 
! . . 
ST OU SE DCA) :+ adresse de D$(1) Date  : Mon Mar 16 11:52:34 1987 
2718 0046D :46 C«DATO À : 
2719 00470 7D6F GOSUE mpy PR ER 
5729 00474 CB CsC-D À 
0721 00476 DA h°C A 
us mé 1000 ° Us Di (2) -DOPEUS Areun Assembler/Linker V2.0, (1c) PF. David 6 J. Taillandier 1986 Paris. France 
2724 0047C 1 B.0 mn 
372% 0047?7F D2 C.0 LA 
2726 0048: 3106 LC(2) 96 
0727 00485 DS Bec A 
9728 00487 7:EC GOSUB BSLS 
2729 0C488 D8 ErA h BA) :* adresse de U$#{1) 
23739 95480 7EDC SOSUB BSLA 
2731 9043: 146 Cs:DATO À C(A) en 
2732 900494 ©1 BeBeC À 
2733 20456 AFS c.8 W 
:7}4 00499 150 DATIi-C 13 
0735 0049D 
2736 00490 e 
2737 00490 - Le code continue dans le fichier comp.as 
3738 00490 e 
2739 00490 
2740 90490 END 
Page Q14 FINPUT. EVALUATION DES ARGUMENTS (bas as? 
AREUH ASS V2.0 ss... SYMBOL TABLE ve 
*ADDRSS Exten Ukn - 0368 
"AVE *01 Exten Ukn - 0596 
1AVMEMS Exzrn Ukn - 0659 
*ESERR Extrn Ukn - 0184 0378 
BSL« 0016F Rel 0281 - 0155 0304 0592 0684 0707 0730 
SL 0016C Rel 2280 - 0151 0309 0586 0682 0705 0728 
COL AP Extern Ukn - 0476 
221MSTK Extrn Ukn - 0520 
D°AVMS Extrn Ukn - 0543 
*DCPEA Unkwn Ukn 0012 - 
"D0PFEBS Unkum Ukn 0009 - 0212 0674 
2CPEDS Unkwn Ukn 0010 - 0210 
"DOPE:S Unkwmn Ukn (0019 - 0218 0464 . 
s20PEMS Unkem Ukn (0029 - 0216 0479 9521 0589 
*20PEPS Unkwn Ukn 0011 - 0208 0617 
:DOPEUS Unkwn Ukn 0021 - 0214 0723 
Catatp 00223 R21 0427 - 0449 
EL ACPY 00000 Re! 0047 - 
sEXPEXC Extrn Ukn " 0100 
*F:NPUTé Extern Jkn - 0362 
FINPUTe O01A0 Rei C364 - 
°EINPUJTE Extrn Ukn - 0363 
fiLeNd 00490 Re! 0740 - 
Liri-pé-L 2 90104 Re; 02:12 - 
°0ET28: 000F9 flel 02:10 - 
°SETFST 00156 flei C256 
°GET:%: 20125 Neil 0218 - 
s6E T8: 201:A lei 02:66 - 0533 
574: 200EE Re; 0228 - 
52708: SO010F Rel 921 + 
1727x$: 2012C Re. 22:0 0048 005) 
3570:0 20120 Ne! 221 - 0209 9211 0213 9215 9221? 
°AEXOEC Exten Jkn - 2536 
:5208 22:37 ei 0380 + 2376 
=so1 201C3 el 6387 + 0395 
:5029 20:28 Re: 0199 2390 
.593% 2021F Re: D4:5 0471 
-5042 20227 Re: 0429 0404 
:+250 206249 fe. 0447 9431 
:5069 22260 fe! 2457 0442 
:5:00 9026E fe; 0463 - 0425 
"MESERR Exten Jan - 0667 
sAFEnS Extsn Jkn - 0188 
*AOVE =" Extra Jkn - 0072 
°upT Exten Ukn r 0668 
TS TA Exten Un 2164 e 
CCS. Extrn Jkn - 0643 
s,2P:5 Extern Jkn - ©0136 
p24910 0O2CF Rel 2518 - 0489 
2P350 002E2 Ne: 2531 - 2576 
pes070 003:C Re! 0550 - 2556 
eACATTY Exten JKkn - 0186 
AC .4 00:00 fe: 0304 - 0109 0113 0409 9417 0436 0454 
ac es 20188 Rei 0309 : 011: 9411 0438 0456 
*5TXCHR Extrn Jkn - 0499 
ST RC £xern Ukn + 00:99 9020 0021 
°TRÉM3F Exten Jen 0009 0010 9001: 9012 0013 9524 9572 
capi 003ES fe: 06?0 0665 
compi.er?rs 2938E Re; 906:6 0497 
atarr 200DC ei 0186 0130 0427 
e[DIM Ésten Jun 9183 
se: NC/R £axten Jkn 0377 
27% Eyesea ‘Jun 18° 
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oc1 


AREUH ASS. 


2901 
2002 
2co3 
5094 
2005 
2006 
23097 
2298 
0299 
0010 
co1: 
o01 

2013 
2014 
29:55 
2016 
2927 
20,8 
0919 
2C20 
2621 


ts 
o 
… 
Le 


Ou OobUu EL 
VUO0O0DÙ0C0O 
un 2 


durs to ts ts 


. 


Page 


cccoo 
00000 
00009 
00290 
69009 
00000 
00000 
20c90 
c0000 
90000 
09200 
00900 
009000 
0000 
00000 
0000 
02000 
02200 
02000 
902000 
coco 
0:9000 
2co00 
oooco 
20000 
20000 
occoo 
cooco 
00010 
00009 
02009 
02900 
00000 
000c0 
0900 
c0900 
oo0oco 
20000 
00200 
20000 
20000 
20000 
20000 
20000 
05000 
00co9 
00009 
22009 
26060 
coooc 
00000 
c0o0o0 
00000 
20000 
o0000 
00000 
20000 
20000 
00200 
00000 
00000 
20000 
20000 


9202 


AREUH ASS. 


A 


AD sh 44 LE tu 4 hd ka 


Fa UD DS Do 04 Pas Di be nt ht ni pa 44 bts Lu O Ou, 
PuAætieste © À 0 -h A de lu bre Le 0 D JM A idée rt 


mé pt pt Dé pe pe mé pe hé pe md pt hé ha hé hé pt dé he pt pa pme honte 


As Gr hd nd Les 4) 62 19 LD Kg «2 Go 14 Lit Get: 


20000 
20900 
20000 
20900 
00600 
20000 
20090 
00000 
00000 
00000 
00000 
00000 
20000 
00000 
00009 
20000 
20000 
20000 
00000 
20000 
20000 
20000 
20000 
20090 
20000 
20c00 
20090 
20000 
20000 
00000 
20900 
20000 
260010 
2co00 
20010 
20020 
20000 
20000 
20000 
20900 


20002. 


20000 
20000 
20000 
26060 
29000 
30000 
20000 
20000 
20000 
20c5c 
20000 
2c200 
22000 
260000 
20000 
20000 
20000 
cocog 
20907 
2900A 
2000€ 
9009E 


FINPUT COMP!LATION DU FORMAT (comp.as) 
v2.0 
title FINPUT COMFILATION DU FORMAT (comp.as) 
+ La boucle suivante est la boucle de compiiation de Ps 
-. 
e FOR 1 »* : TO nombre-d'e:ements(P#) 
. appliquer 1 automate ; 
. DS(1) := MS(1) : 
+ NEXT ! 
-. 
1 equ {"FUNCRO }+00 5 quarters 
cprip$ equ (C*FUNCRI)+95 S$ quartets 
adésp$t equ (*FUNCRO}-10 5% quertets 
adésu$ equ {"FUNCRO)+15 5 quartets 
cptes equ ({*FUNCRQO})+20 2? quartets 
adésms equ {*FUNCRO)+22 % quartets 
mask equ (*FUNCRO:-27 ! quarcet 
admask equ (+FUNCRO)}+28 S quartets 
cptrsk equ (*FUNCRO )+33 2? quartels 
AuIt equ (*FUNCRO)-35 2 quartets 
lastUP equ (*FUNCRO)+357 1 quartet 
e 11 reste 1 quarrer à (#FUNCRO)+41 
credit equ (= TRFMEBF 1958 2 Quartets 
* Il ne reste plus rien en TRFMBF ! 
. 
+ Les variables k et p utilisees dans "bitmap" sont en 
+ vark ( rFUNCRO )-)8 sur 2 quartets 
* varp ("FUNCRO)-40 sur 1 quartet 
e "D'ss °"4 
-. .. 
. 1e 
- Î | 
. 0",,°2 w | 
rer. } 2 
® ! 
e b! | 0'..9 
- ! 1 Pr UC LL 
e ' e| te l 
- ! | t 
e 4 "PU v bb ‘0: 9 v [ 
- ) 1 -=-------... » A mom. > «4 
. d -»1! * I 
e j 11 P', U ee ! 
o a … l sms. 
. "P'I'U'! 
e hi 
. / fin de Ps 
. 1 
Ed 
-. 
+ Actions de : automate 
* a: Initiaiisarion de : automate 
. 
e cptps :* LEN (GETPS1}) ; 
e adésps :+ GETFST (GETPSSi) ; 
. mask 2-7 
. éptask :7 96 ; 
e credit :+ min (MAXLEN(185), 96) : 
. admask :7 GETBSI - (1221 + 4 - 1) quartets ; 
FINPUT COMPILATION DU FORMAT < comp .as 
vi.0 
e (admask) :»* 0 : 
Se addsu$ :* GETUSI + 4 quar:ets ; 
- 1 :s: LEN(CGETAS]) 
. 51 1296 alors “String Overfiow* finsi 
. cptas :* 1 : 
e addsns :* GETFST {GETASI) ; 
- 
« b: !nitialisation explicite du aultiplicateur 
- 
e auit = cCarlu - 0” 
= c: Calcul du aultiplicateur 
e 51 ault210 alors "Invaifd format" finsi ; 
e AUIT := (ault + 10} + (carlu - 0°) : 
« d: Initlialisation impiicire du auitipilicateur 
- 
. auir :s : 
e executer € ;: 
. 
* «: Protection 
. bp :* si carius P' aiors 1 sinon 0 ; 
. lastUP := 2 
- bitmap :auit., pl) 
-. 
“ |: Sortie de ! autossie 
e. DitnRap (cptask, lastUP)} 
e Us! « REVSEUSE 20) 
- 
+ bitmap :n. 2: 
. si med airs retour 
. pour « = n ‘usque ! 
° faire 
. s: cetnmsk : 9 a:ors “Inva.id format” finsi 
. cPtase-- 
. s1 sredit «+ 9 aiors p :" : insi 
- “1 ? 
e. a ors {admask) :* :admask |} Ou mask 
e sinon 
. s1 cpta$t)0 alors (addsus++) :: (addsas } finsi: 
e zredit 
° fins: 
e addsas 
# si =<ptas)0 alors cprat-- finsi 
. Masse °T mask > 1] 
e si sask:0 
. a.ors 
. mask 7 273 
e admask- 
.- ladmask) :" 0 
Se fins: 
® finpour 
- 
1F00000 dis(5: en 
147 crdai: «4 
1000 dis(i; it 


la Douce “compiier* attend dans 


Fage 


003 


AREUH ASS. 


0127 
0:28 
0:29 
0130 
0131 

0132 

0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 

0142 
0142 
9144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 

0152 
0153 
0154 
0155 
0156 
015? 
0158 
0159 
0160 
0161 
0:62 
0163 
0164 
916% 
0166 
0167 
0168 
2169 
0170 
0171 
0172 
0173 
0174 
017$ 
0176 
017? 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 


Page 


0000€ 

0000E 
0000€ 

0000E 

0000E€ 

0000€ 
0001: 

0001! 

00011 

00011 

00911 

00011 

0001: 

ocoie 
00018 
0001F 
00026 
00028 
o0oo2c 
0002F 
0002F 
0002F 
0002F 

00033 

00037 
0003À 
0003A 
0003A 
0003A 
00030 
00041 

00045 
00045 
0004 
00045 
00047 
00048 
0004F 
00052 
000$2 
00052 
00052 
00059 
00058 
000%F 
00062 
00064 
00066 
00066 
0006A 
00062 
00060 
0006D 
0006D 
00074 
00077 
00078 
0007D 
0007F 
0008 
0008 
0008 
coo8c 


AREUH ASS. 


0190 
9191 
0192 
0193 
0194 
019$ 
0196 
0197 
0198 
0199 
0200 
0201 
0207 
9203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
2216 
0217 
0218 
0219 
2220 
0221 
0222 
0221 
0224 
2225 
9226 
0227 
0228 
2229 
0230 
023i 
9232 
9239 
2234 
9225 
2236 
0237 
o25e 
2239 
0240 
024: 
0242 
0243 
0244 
9245 
9246 
0247 
9248 
9249 
2250 
0251 
0252 








FINPUT : COMFILATION DU FORMAT (comp .a:) 


v2.0 
. D1 » } adresse de la variable ! 
. CIA) * la veleur de cette vartiabie 
. 
compiler 
145 datirhc « 4 :+ cia) 
- Action «a initiallsation de l automate 
+ cptp#t :° LEN (GETPS1) ; 
1F00000 dis#(15)1 
147 ceéati À 
7000 gosub #GETPS] Commentaire 
1F00000 di°(5) cptpt 
D2 c.0 À 
15E3 ceéat0 4 
145 datlrc À 
« addspt :" GETFST (GETPSI) ; 
7000 gosub "GETFST DO est toujours comme apres GETPS)! 
1000 dir(2) addspt 
145 datirc À 
. 
= math se 2h: 
. 
308 leti) 8 2°} (ou encore 8, ou plutot 31000) 
1000 di°(2) mask 
1550 datirhc P 
. cptask :7 96 
D2 ce0 « Pour 1 instruction suivante... 
3106 1ct2) 96 
1000 dir(2}) cptmsk 
140 dati-c B 
« credit := MIN {MAXLEN(IS), 96) : 
1800000 d0+(5) (*DOPE1S#)-9 DO := * MAXLEN(IS) 
Do a-0 a 
15A3 *rdat0 4 A(A) :7 MAXLEN(1I$#) 
882 ca a 
«0 goyes actiona-05 on ne change rien 
DA «rc a 
actiona-0$ 
1D00 dis=h12} credit 
149 datisa b credit :* MIN(MAXLEN( 1$), 96) ; 
. 
+ admask :: GETBSI + (12-2 + 4 - 1) quertets ; 
1800000 40°(5) 1 
146 c-dat0 À 
7000 gosub *GETBS1 
DA ac À 
D2 ce0 À 
3181 1ct2) 12°2+4:1 
C2 cscea À 
1D00 di=(2) admask 
145 datisce À 
. 
FIMNPUT : COMPILATION OÙ FORMAT < comp .as? 
v2.0 L 
«+ (admask) := 0 : 
E 
- Bug fix <861129.11:5) 
134 d0.c 
AC2 c….0 u 
1544 dat0®c 5 
. 
: addsut :: GETUSI + 4 quartets : 
- 
1800000 40-($) 1 
146 crdat0 À 
7000 gosub *GETUS1! 
E6 ceci À 
Eé cec-+1 À 
E6 csc-1 À 
E6 cec-1 À 
1D00 di-(2) addsus 
145 datisc À 
- 
e ] :+ LEN (GETASI) : 
e 
1800000 40-15) 1 
146 cdar0 À 
7000 gosub "GETASI 
DO 2-0 À 
1SA3 ardat0 4 
02 ce0 A 
1106 let21 96 
BA Tacsc À 
Do goyes actions -10 
3100 ict21 "eSTROV 
#D00000 goving °MFEFR 
actions -10 
. cptat :s |! 
1D00 di-(2) cptas 
149 datlza 8 
« addsas :=: GETFST (GETMSI) ;: 
- 
‘7000 gosub :+GETFST 
1900 dir(2) addsas 
145 datisc À 
one en eneneoosomeenoneeee0net etes sement eee000cess 
« Etat 1 
OR OR RO OR Om momo eeoeeerenestececesevenme 
7460 etat] gosub gerchr 
DAO reit3)} erreur £EOL 
500 telt3}r 21:3 PIuU 
Boo reli3} t1-2 ss 
7801 t1-3 gosub aciond 
6020 gcto etat} 
7CB0 ti-2 gosub actlionb 
. gote etat 
- 
«+ ATTENTION LE CODE TONTINUE 
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Page vos 
AREUK ASS, 


2253 
3254 
o2ss 
2256 
0257 
2258 
ces9 
2260 
2251 
0262 
2263 
2264 
2265 
0266 
02:67 
258 
2263 
c270 
027: 
0272 
0273 
2274 
0274 
0276 
0277 
2:78 
9279 
2280 
0281 
0232 
02563 
0284 
02:85 
2286 
C287 
c2e8 
2:43 
0290 
229: 
2292 
2292 
2294 
2295 
2:56 
0297 
2:98 
02939 
2300 
2391 
2302 
2303 
0304 
030$ 
2306 


Page 


09:08 
00198 
00108 
20108 
20108 
20108 
00:08 
9019C 
0010F 
001:2 
00118 
06115 
20119 
2011D 
0011D 
0012: 
00:21 
C9:21 
09121 
00121 
00:21 
00:21 
20121 
0012: 
2015: 
ooiz 

00:28 
00128 
0012€ 
0012€ 
00:37 
co13é6 
90116 
0017A 
9013A 
9013A 
00:3A 
2013A 
2013A 
9013A 
20:3A 
0913A 
201: 3A 
201)E 
0014: 
20144 
00147 
00147 
00148 
2014F 
2014F 
00153 
00157 
00157 


206 


V2.0 


7840 
490 
F00 
300 


TEBO 
6EEF 


7AFO 


7230 
E42 
600 
890 


7900 
6EEF 


7A680 


7910 
260 
690 
890 


7000 
650F 


7480 
66EF 


AREUH ASS. V2.0 


2308 
2309 
23:10 
231: 
03:2 
2313 
0314 
23:58 
2316 
03:7 
9318 
251 

0320 
932: 
5322 
23235 
2524 
232$ 
2326 
232? 
2328 
2329 
2330 
52331 
2332 
2333 
2134 
3335 
2136 
°33? 
2138 
2139 
340 
234: 
234: 
2343 
1144 
234$ 
2346 
2347 
2:48 
2549 
+250 


Co 20 © D Où A ee ni tt mt 


+ LA sh LD 4 N9 49 19 Le ds ch Lo Ch oi ne La 14 La 44 Ce 
Lot bd nat 48 ut RON tal ho Quë af Lol God bat Gut Ant Mn Qot rt dt 
PO EE OU OP EP OP A LA A A AN AA En AA 


LE IMAætibmr 


20157 
00147 
20157 
00157 
00157 
00157 
00157 
00157 
20157 
20157 
20157 
oci57 
00157 
20157 
00157 
20:57 
20157 
20157 
20157 
20157 
20157 
00:57 
20157 
20:57 
2015? 
00157 
20157 
20157 
20147 
20:87 
20157 
20157 
20:57 
20157 
20€ 
2016: 
123.63 
20:66 
20:49 
20:67 
20160 
90170 
20172 
20174 
20177 
2017A 
20170 
20:84 
20168 
20188 
10:82 
20:91 
20:94 
20:96 
20190 
22:A0 
201A0 
001A6 
201AD0 
201AD0 
GO1AF 
2018: 
.-. 34 
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1F20000 
:47 

CE 

:45 

“45 


:0c0 
147 

CE 

CE 

145 

135 

.48 
sF20000 
310$ 
LL 

92 

3155 
62 

32 
8F90000 
F9 


330000 
sp0coo0 


22 
£e 
540 


_ 
. 


FINPUT COMFILATION DU FORMAT Ccomp.as? 


RSR LR LL LLLLLRLLLRLRRRLRRLLRLILERREREEREERRLI TILL. 


« État 2 


RL LLLLLLLRLR LL LRERRIERLLLILLILLLILILLILI LIT 


élat2 gosub getchr 
rel(3) erreur EOL 
rel(3) t2-3 PIU 
rel(3) L2-2 0..9 

t2-2 gosub actionc 
goto erat2 

t2-3 gosub actione 

. goto état 


* ATTENTION 


LE CODE CONTINUE 


+ Etat 3 


é!a:3 gosub getchr 
relt3) action] EOL 
rel(3) t3-3 PIU 
rel(3) L3-4 0..9 
t3-3 gosub actiond 
goto erat3i 
t3-4 gosub actionb 
e goto etat4 
* ATTENTION LE CODE CONTINUE 


+ Etat 4 


ROCCO OROOOOTe 000000000004 reremeceues 


etar4a gosub getchr 
rel(3) erreur EOL 
rel(3) t4-3 PU 
rei(3) L4-4 0.,9 

t4-3 gosub actione 
goto etat3 

t4-4 gosub actionc 
goto ttat4 

FINPUT COMPILATION OU FORMAT «comp .as? 


traitement du fiot d'entree 


gerchr 


But : lit un caractere er branche sur erreur #1] n'est pas 
reconnu, puis le ciasse en Lrois Categories et opere un 
branchement à une adresse fournie par le module appelant 

Entree: 

- RSTK * adresse de la tabie de debranchements 

+ addsps pointe sur deux Qquartets plus haut que le 
caractere à lire. 

- cptpt = nombre de caracteres restant à lire (1..n) 

Sortie: . 

A(B) + caractere lu 


- Ps0 
- cptpt et addspf ajustes 
Abime: C(A) 
Appelle: CONVUC, DRANGE. TBLJMC 
Niveaux: 2 (CONVLE } 
De-ai:: 
Les rois Classes de lexemes sont 
- Fin de ligne 
P/1U 
0.,9 
Donc, l'appel doit etre de la forme 
GOSUB getchr 
RELI]; *ransition si fin de :igne 
RE-13: transition si P ou U 
REL(3) transition s1 0. 9 


Histor :que: 
86,/08,;/31: Z.T. & P.D. conception & codage 


getchr dieser) cprps 
dat: À 
cec-1 À 
daz.°c À 
goc saut0 Fin de Ligne 
dis(2) addsps 
cdat! À 
cec-i À 
++c", À 
datise À 
dise 
ardat: B 
gosbvl s=CONVUC 
lcasce \P\ 
arc B 
gOoyes saut i 
lease \UX 
are 8 
goyes saut! 
gosbvi ORANGE 
jonc saut 2 
erreur le(4) (sid)-0eiFAT) “lnva;idé Format” 
goving #BSERR 
saut z c.0 À 
cec-1 À 
qgonc st 8.6.7 
sa". at. x 


Page 007 
ARÉUH ASS, 


037: 
037? 
037 
0374 
027$ 


Page 


00186 
00188 
001BB 
00) BD 
o01Ca 


cos 


AREUH ASS. 


0377 
0378 
0379 
0380 
038: 
0362 
0383 
0384 
035 
0386 
0387 
0388 
0369 
0390 
0391 
0392 
0393 
0294 
039$ 
0296 
0397 
0358 
0399 
0400 
0401 
0492 
0403 
0404 
0405 
0406 
0407 
9408 
0409 
0410 
gai! 
04:22 
904135 
0414 
2415 
0416 
2417 
0418 
0419 
2420 
042: 
0422 
9423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
2471 
0432 
LLFE 
0414 
2435 
0436 
9437 
9438 
2479 


001C4 
001C4 
001C4 
001c4 
oo01c4 
001C4 
oo1c4 
oco1cs 
oo1cs 
001D2 
001DS 
00107 
00107 
00107 
00107 
00107 
00107 
00107 
00107 
00107 
00107 
001DA 
001Ei 
001E4 
001Es 
001E8 
001ED 
001ED 
001ED 
201E5 
001F0 
oo1F3 
°0o1F6 
20159 
D01FC 
D01FC 
201FC 
9201FC 
00200 
20203 
20206 
00209 
00208 
00208 
20208 
00208 
00208 
00208 
00208 
00208 
20208 
00208 
0020€ 
00211 
20218 
20218 
00218 
0c218 
20218 
00218 
cc118 
00218 


2c::8 


vz,0 


E6 

540 

D? 
8000000 


v2.0 


3103 
B6A 
1F00000 
149 

01 


AE8 
1F00000 
148 
31A0 
9E6 

58 


A64 
AE6 
A66 
A66 
A6A 


3103 
861 
A6Q 
149 
01 


AE2 
866 
1F20000 
i4D 


FINPUT : COMFILATION UU FORMAT (CoRp 46) 
Lraltement du FIL © 'enttee 
st Cece1 À 
gonc saut 
sSaut0 c-0 A 
saut goving »*TBLJIMC 


FINPUT : COMPILATION DU FORMAT {comp .as ) 
Actions de | automate 


* act ionb 


actionb 
lcase \0\ 
ara-c 6 
d1*(5) œuit 
datise 5 
rin 


000000000000 0000 000000000000 00000000 
” act ionc 


actionc 
Le 
* s1 ault)10 alors “invalid format” finsi : 
D 
bra B 
di-(5) ault 
ardati 8 
le(2: 10 
a)c B 
goyes erreur 
- 
+ auIL :* (auit-10) 
- 
ara-a 
ca 8 
cecec 8 £la :" auit » € 
cecec DB £ial :* auit - 8 
"ac 8 aa) ’* auit » 10 
. + ‘car iu- © 
. 
lcasce 0 
bebe 8 
ara:t 6 
datisa © 
rtn 


* actiond 


one nnnmnnememnnemmencennssomtenemeeseneeréascenvese 


act iond 

- 

e auit :e : 
- 


c.0 8 

cece1 8 

dis#(5) auit 

datiec B 
e geoto ac. :one (en fait Josub ; rtn) 
_ 
+ ATTENTION LE CODE CONT:AUE 


comme msemmsmmsssmmmmmmmmmmmmmemmemesesessnnmnmnt esse © à 


* act'one 


nm mm mn mm mm nm mms nemtsmmmmmmonanmnnns ee 





Page 


005 


AREUH ASS, V2.0 


0440 
244! 

0442 
24473 
0444 
944% 
0446 
0447 
2448 
0449 
3450 
2451 

2452 
0<53 
2454 
2455 
5456 
0457 
0458 
3455 
0460 
0461 
0452 
0463 
2464 
0465 
0456 


Page 


002:8 
c02:8 
20218 
002! 

00218 
00218 
0021F 
00221 
00229 
00227 
0022A 
00220 
00220 
00220 
00220 
00220 
00234 
00238 
00238 
00258 
20238 
0023A 
9023E 
00241 
00245 
00245 
90249 


210 


3155 
Be 2 
36A 
80 
AE? 
B66 


1F00000 


1500 


DA 
iD00 
14F 
6700 


6ASF 


AREUR ASS. V2.0 


2468 
2469 
3470 
0a71 
2472 
23473 
2474 
0475 
0476 
0477 
0478 
0479 
0480 
2481 
2482 
2483 
12484 
2485 
2486 
2487 
2488 
2433 
2490 
FLE 
2492 
2493 
2494 
5495 
2436 
245? 
1498 
2439 
2520 
2531 
2302 
2:93 


2594 


rs hé pe 


ve ne per n: 


OL MB ITA: 


AD :H ta ne y Le Li ts Ce «0 C9 
A M A A AN SA LR 1 48 1m 18 A 
sh." 


“2 
LA A 
vs rs 
LE 


524 
2525 
226 
2527 
2528 
2359 


css 


“ 
« 


00249 
20249 
10248 
00245 
00249 
0C249 
20249 
00249 
00249 
00249 
00243 
00243 
00249 
00243 
00249 
00243 
00249 
00243 
00243 
00249 
00249 
00249 
00249 
9024€ 
2024 
20248 
2024E 
2024 
00255 
20259 
20:50 
co2s0 
2026û 
20260 
22260 
22:65 
20260 
co267 
2026A 
20260 
0026F 
:026F 
2026F 
0026F 
20272 

20275 

2027$ 
002$ 
20275 

2027C 
0027F 
20286 

20289 

20288 
2028E 
20291 

20195 

0029 

20295 

20295 

20295 

20295 


‘tie 


36A 
20 


ir20000 
1590 
:D00 


140 


:F20000 
.4F 
36A 


. D 


A6E 
142 


1F00000 
14F 
iF20000 
96E 

co 

A80 

B04 
:590 


FINPUT 
Actions de | automate 


: COMPILATION OU FORMAT Ccomp.as) 


actione 
- 
e p :° si cariu =» ‘P' alors ] sinon © ; 
- 
léase \UX 
cac-a BE 
7c.0 B 
goyes actione-010 
c-0 
cecel B 


actione-019 


e lastUP :° p : 


d1s=#(15} lastUP 
datisc ! 


«+ bitmap (ault, p) : 
- 


ac À 
dis=(2) muit 
cedati B 
goto bitmap (en fait gosub ; rtn) 
Erreur goto erreur 
FINPUT : COMPILATION OU FORMAT (comp .as) 
Ditsap 


bitmap 


+ But: voir aigorithme en debut de fichier 
* Entree: 

. - A0) -p 

. - C(BDe.n 

-« Abime: A(A), C(A), DO, D1 

«+ Niveaux: 0 

«+ Histor ique: 

e 86/08/31: J.T. 6 P.D. conception & codage 
. 86/1:/29: 3.T. & P.D. ajout du credit 


vark equ { ®FUNCRO }+ 38 
varp equ { -FUNCRO }+40 
birmaz 
- 
+ s1 n°0 alors retour :; finsi 
- 
Tc.0 8 
rinyes 
-. 
- pour k °° n :'usque 1 
di:1$} varp 
Aati:a : 


dlet2}) vark 
580171 da:li.c 3 


faire 
s: 


Cptask*0 alors “invalid format” finsi 


d1°15, cptask 
crcat: © 
"ceo B 
Joyes Erreur 


. cpLasK-- 
- 


cec-1 9 

datisc 8 
. si credit » 9 alors p := 1 ; 
d1:($} credit 
crcat: 
dir($}) varp 
7:sû 5 
goyes beo1s 
«1 P 
ara"tl p 
dar ira : 


C(B) :+ credit en “Unprotested" 


e fins: 


ba0is 


Page 


211 


AREUH ASS. 


05): 

0532 

053) 

0534 

0535 
0536 
0537 
0538 
0539 
0540 
o$41 

0542 
054) 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
0551 

0552 
055) 
0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
2562 
0563 
0564 
0565 
0566 
0567? 
0568 
0563 
0579 
0571 
0572 
0573 
0574 
0575 
0576 
0577 
0578 
0579 
0580 
0581 
0582 
0583 
0584 
0585 
0586 
058? 
0588 
0589 
0:90 
0591 
0592 
0593 


Page 


0029% 
00299 
0029C 
002%E€ 
0029E 
0029E 
0029E 
002A$ 
002AS 
007AD 
00280 
00281 
00287 
00288 
002BF 
002C3 
0023 
202C3 
co2C3 
002C3 
0o2CA 
002CD 
002D0 
00202 
00202 
002072 
002D2 
00206 
002D$ 
0020 
0020F 
202£2 
002€ 
9002EC 
002EF 
002Fi 
002F3 
002F6 
002Fs 
202F9 
002F9 
002Fr3 
002Fs 
002F3 
002F3 
002F9 
o02F9 
00300 
20303 
00306 
00309 
00309 
00309 
00309 
00309 
00309 
0030% 
0030 
00310 
00313 
00315 
00317 
0031A 


012 


AREUH ASS. 


0594 
0595 
0596 
0597 
0596 
0:99 
0600 
0601 
0602 
0693 
0604 
0605 
0606 
0697 
0608 
0693 
06,0 
061: 
961: 
0613 
0614 
0615 
0616 
2617 
06:8 
2619 
0620 
0621 
0622 
0633 
0674 
0612 
2626 
26: 
068 
26:9 
2630 
2631 

2632 
0633 
0634 
0635 
2636 
0637 
0638 
2639 
5640 
0641 

0642 
0643 
0644 


00314 
0031À 
o031A 
0031E 
00321 
00324 
00327 
0032À 
0032A 
0037A 
0032ÀA 
0032A 
0032E 
90330 
00334 
00337 
20337 
00337 
00337 
00337 
0033? 
0033A 
92033C 
0033F 
9033F 
0033F 
20335F 
00343 

20346 
00348 
20348 
20348 
20348 
22348 
2034E 
20351 

20355 
20355 
00355 
20355 
2035C 

00360 
00360 
092360 
00360 
20364 

00267 
0036 
00360 
0036F 

00373 


v2.0 


1580 
s0s 
72 


1F00000 
1574 
1D00 
147 

135 
1534 
0E4E 
1514 
6940 


1F00000 
14F 

36x 

92 


1000 
147 
135 
1C1 
148 
1F00000 
147 
134 
E6 
E6 
145 
148 


1F00900 
14F 
A6E 
140 


1F09000 
147 

CE 

CE 

145 


v2.0 


1D00 
14F 


450 
140 


1D00 
D2 
15F0 
S1E 


90€ 
Bi 
308 


1D00 
143 


= 


141 


131 
AC O 
1514 


1F00000 
15D0 


1000 
14F 
A6E 
36À 
20 
6D£E 


FINPUT 
bitmap 


æ"dat] 
Ta°.0 
goyes 


4145) 
crdar1 
di-(2} 
cedat1 
dire 
ardat! 
sra'c 
dati-a 
gore 


sinon 


di+(5) 
c-datl 
7c.0 
goyes 


bao20 


. alors (adésué++) 


di-(2} 


alors (admask}) :2 





: COMPILATION DU FORMAT (coep.as? 


1 
P 
bm020 


(admask) ou mask 


mask 

s 
admask 
a 


S 
s 
s 
be035 


s1 cptat>0 


cprat 
B 
B 
be=030 


:* (addsat) 


addsas 


cedati À 


disc 
d1 »d1- 
ardat) 
de(s) 
cedat] 
dûüs=c 
cec+1 
ceci 
datiec 
dat0a 


" fins 
ba030 
L cred 


dis(5) 


(addsn$ ) 


ê 
* 
c 
“ 


addsuss+ 


Dr» rh mm 


L : 


Rens 27 


credit 


crdati b 


c=c-1 
datlise 


. finsi 
ba03s 
. “addsai.+ 


di-(5) 
cedati 
ceci 
ceci 
datisc 


FINPUT 
bitsap 


“ s1 cptat 


d1+(2) 

cedati 

cac"-1 

goc 

datise 
be=040 


mask 


&#(2) 
c.0 
crdati 
csrb 


Sask 
aiors 
ask 


?ce0 


goyes 
ic(1) 


di»(2) 
srcat! 
aa] 

datira 


di-A 
ao 
datisa 


finsi 

- 

be0$0 di(%) 
datiec 


. finpour 


d=(2) 
créati 
chc-i 
1c.0 
Frtnyes 
gets 





b 
b 


addsat 


>>> 


: COMPILATION DU FORMAT «comp .as? 


>0 alors cptat: finsi 
cprat 

B 

8 

ba040 

8 


:" mask )) 2 : 


ask 
A 
1 
C(0) :* mask 
* © 
‘:e 2°3 


P 
ba050 


(%10)"93 C(O) » mask :° 2°3 


admask-- 


admask 
A 
LA 
À 


(admask )} :* © 


ba010 
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Page 0!3 F:NPUT : COMPILAT:ON OU FORMAT «comp .as?} 
AREUR ASS. V2.0 Action ] 

0646 00373 

9647 00373 CR nm nm mm mm mnmmmremnemmeseneseesseeresesereseeore 
2648 00373 * secs ion] 

2649 09173 mn mm nm mn nn nmtemttenmsmeesseneeseceseceesonses 
2650 00373 

0651 00773 actioni 

0652 006373 e. 

0653 00373 e. bitmap (Cptesk, lastUP) : 

0654 00373 , 

965% 00373 1F00000 dl°(5) lastUP 

0656 00)7AÀ 15B0 asdet: 1 

C657 0037E 1F00000 d1r(5): cptask 

269568 00385 14F cedati 8 

0659 02388 70BE gosub bitmap 

5660 0038C ® 

066; 008€ « UStI) :° REVS(US(1)) 

2662 0038C , 

0663 0038C 

2664 0038C « lentUS(1)) :e ( addsus : GETUSI 4) /72 
2665 0038C . 

0666 00380 1F00000 dis(5) 1 

2667 00393 147 crdati À 

2658 00396 7000 gosub "#GETUS] 

9663 0039A 1D00 dl-(2) addsut 

0670 0C39E 143 “-dat] «a 

967: OCJAi 13: disa 

267) O03A4 EE cra-c À añddus - GETUS! 
2673 003A6 CE cecr1 À 

Ô€74a 903A8 © cec-1 À 

967% OO3AA CE cec-1 À 

2676 903AC CE csc-1 À 

0677 CSOJAE ADO a-0 n 

20678 0033: DA arc À ata) :+ 2 « LEN(US(1)) 
2679 20383 81:C asrp aita) :" LEN(US(1)) 
2680 00186 1583 datOra 4 

681 903BA 163 do0s40+ « 

2632 00380 ® 

1583 00380 e US(I) -° REVS(US(I)) 

C634 00380 

2685 230380 AF1 b=0 W 

2536 00:3C0 DE ba LE 

2667 90302 822 sb:0 

2688 O003CS 810 bsrb 

2633 9003C8 136 cd0ex 

2690 001C8 C9 csbec À 

0691 003C0 C9 crbec À 

2692 O03CF 134 dOs.e 

:693 00302 135 disc 

0694 00305 832 7sb.0 

2695 00308 71 goyes pair 

2636 O0J3DA 511 gonc impair 

06937 Co3DD 1C1 rptrev 4ledi- 2 

0638 O003E0 14A a-dat0 E 

2699 003E3 14F crdati 8 

0700 O03E6 149 dati-a B 

0701 903E9 14C dat0»c B 

0702 O03EC 16! impair 40°d0+ 2 

2703 O03EF CD pair beb-1 À 

2704 903F1 SBE gonc rptrev 

0705 20)F4 

20706 003F4 1F00000 dires) 1 

2707 203FB :47 crdati «a 

2708 903FE 1F00000 di=(5}) +D0O0PEDS 

Page 914 FINPUT : COMPILATION OU FORMAT «comp .as) 
ASEUR ASS. V2.0 Action |! 

2709 00405 :B00000 d0=(5) =DOPEnS 

2710 9040C SE0000 gosubi *ELACPY Dsil} :*° Ms(1) 
2711 00412 

0712 00412 1F00000 dis=(5) 1 

2713 00419 147 cedati « 

0714 O0041C CE cec-1 « 

2715 OO4iE SAA ?ce.0 « 

07:6 00421 60 goyes compfin 

0717 00423 6AEB goto compliier 

0718 00427 

27:19 00427 cospfin 

0720 00427 2 

9721 00427 + Le code continue dans le fichier boucle .as 
722 00427 e 

2723 00427 end 
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Page 015 FINPUT 
AREUH ASS. V2.0 ses. SYNMBOL TABLE 
*ESERR Extrn Ukn 036% 
*COKVUC Exten Ukn 0154 
°00PFOS Exten Ukn 0708 
"DOPEIS Exten Ukn 168 
*DO0PEMS Extrn Ukn 0709 
* DRANGE Extrn Ukn - 0361! 
“ELACPY Extrn Ukn r 0710 
Erreur 00245 Re] 046% - 0597 
"FUNCRO Extrn Ukn - 9011 0017 
+ 0020 002) 
FiLeNd 00427 Rel 0723 
rCETBS]! Extrn Ukn - 0182 
sCETFST Extrn Ukn + 0149 023) 
2CGETAS] Extrn Ukn - 0213 
°GETPS! Exten Ukn 014: 
°GETUS 1 Exten Ukn 0201 0668 
"AFERR Extrn Ukn 0222 
-.TBLJMC Extrn Ukn + 0374 
°TRFMBF Extrn Ukn * 007) 
actiona-05 00066 Rel 0174 - 017? 
actions -10 000D0 Rel 0224 r 0219 
actionb 001C4 Re] 0382 0249 0285 
actionc 00107 Rel 0393 - 0264 0303 
actiond 00208 Rel 0424 - 0246 02682 
actione 0021B Rel 0441 - 026? 0300 
actione-010 00220 Rel 0451 - 0448 
action! 00373 Rel 0651 - 0278 
addsat Unkwn Ukn 0016 - 0234 0557 
sddspt Unkwn Ukn 0013 - 0150 0347 
addsus Unkmm Ukn 0014 :- 0206 0562 
ans sk Unkwm Ukn 0018 0187 0639 
bitsap 00249 Rel 0486 0463 0659 
be010 0025D Re! 0493 - 0647 
ba01s 00298 Rei 0527 - 0520 
beaû20 002C) Rel 0550 - 053) 
ba030 002F$ Re] 0573 - 05) 
baû]s 00309 Rel 0584 - 0545 
ba040 0032A Rel 0601 - 0599 
baos0 00385 Re] 0633 - 0615 
compfin 00427 fel 0719 - 0716 
compiler 0000E Reï 0131 - 071? 
cptes Unkwn Ukn 001% 0228 9550 
cptask Unkwm Ukn 0019 0163 0504 
cptpt Unkwm Ukn 0012 - 0142 9341 
credit Unkwn Ukn 0023 - 017$ 0516 
elFAT Extern Yen - 03564 
se STROV Extrn Ukn 0221 
erreur 001A0 Rel 0364 - 0242 0260 
état! OCOEF Rel 0241 - 
était? 00108 Re] 0259 - 09265 
etat3 00121 Rel 0277 - 0247 0281 
ttaté 0013A Rel 0295 - 0304 
getchr 00157 Rel 0341 - 0241 0259 
id Extrn Ukn * 0364 
j Unkem Ykn 0011 - 0124 0139 
impair O003EC el 0702 - 0696 
last UP Unbnm Ukn 0021 - 0455 0655 
sask Unimm Ukn 0017 - 0156 0537 
suit Unkwm Ukn 0020 0:85 0:98 
n Extrn Ukn - 0122 
pir OO3EF fReli 90703 - 0695 
rptruv 00300 Rel 0697 - 0704 
saut 001BD Re) 0374 - 0372 
Page 016 FINPAT : COMPILATION OU 
AREUH ASS. V2.0 ms. SYMBOL TABLE +... 
taut 0 00188 Rel 0373 - 0145 
saut l 00184 Rel 0370 - 015? 0360 
saut 2 OCO1AD fRel 0367 - 0362 
st 00186 Rel 0371 - 02369 
t1-2 00104 Rlel 0249 - 0244 
t1-3 000FC Bel 0246 - 024] 
t2-2 00115 Rel 0264 - 026: 
L2-3 0011D fRei 0267 - 0261 
L3-) 0012E el 0282 - 0279 
t1-4 00136 Re] 0285 - 0280 
t4-3 00147 Rel 0300 - 0297 
t4-4 0014F Rel 0303 - 0298 
vark Unkwm Ukn 0481 - 0497 0638 
varp Unkwmn Ukn 0484 - 049% 0518 
Source comp .as 
Object obj/comp.s0 
Listing : list/comp.a]l 
Date Ron Aar 16 :1:52:59 1987 
Errors 200 


Areuh AssenbDler /Linker V2 0. 


(ec) PF. David 6 J 


: COMFILATION OÙ FORMAT (conp as) 


001} 0014 0015 0016 0017 0018 0019 
0483 0484 


0588 


0669 
0620 


0596 
0657 


0577 


0296 0402 0465 


0301 
0277 0295 


0180 0199 0211 0666 0706 0712 


0605 
0430 


0633 
0461 


FORMAT <comp.as)? 


Taillandier 1986 Paris. France 





Pace 


001 


AREJH ASS. V2.0 


ooû1 
2002 
2003 
2004 
2005 
2096 
2007 
2008 
2009 
20:10 
2011 
2012 
0013 
2014 
3015 
0016 
2017 
0c18 
2919 
2029 
2c21 
2022 
2223 
2024 
3025 
2076 
202? 
2628 
2229 
2050 
203: 
2032 
+033 
2C34 
2038 
2936 


_.— 
… 


2238 
2539 
3240 
264: 
294: 
3743 
1044 
2245 
2946 
2047 
2048 
1:49 
20=0 
209: 
2052 
995) 
0C%+ 
2075 
2256 
2047 
cos8 
2059 
2060 
c06: 
206: 
67 


00000 
20000 
00000 
20000 
cooco 
20000 
00000 
00000 
09900 
00000 
00000 
20000 
00000 
20000 
00000 
02000 
50000 
00000 
20000 
02000 
20009 
02000 
25000 
22000 
ocooc 
20000 
20000 
20000 
20093 
00006 
22000 
20014 
occiB 
22018 
2001E 
20022 
220: 
20025 
26028 
200285 
002€. 
2C01E 
2cc3: 
30038 
20938 
20C0JE 
S0C3E 
20904: 
29C4% 
2Cc49 
50049 
2cca3 
06cas 
29049 
90049 
22049 
990043 
20049 
20049 
20049 
20050 
00053 


199€? 


118 
134 
8F20000 
8F90000 
1800000 


AF4 
1307 
16F 
137 
144 
164 


iF00000 
147 
144 
:64 


17E 


:5F0 
15C0 


:F90000 


147 


198 


ver: 


FINPUT : BOUCLE PRINCIPALE <boucie .as) 


Litle FINPUT : BOUCLE PRINCIPALE (boucle .as2 


1 contient le numero de la ligne en cours (1..n) 


equ { =LDCSPC ) 

<861202.2120) : merci HP ! 

La variable 1 etait placee en FUNCRO. Comme la 
documentation d'HP ne l'indique pas. CHEDIT ABIME TOUTE 
LA FUNCTION SCRATCH, ainsi que DEUX QUARTETS DANS LA 
STATEMENT SCRATCH. 

Ceci expliquait un comportement “peu normal" de FINPUT. 


menu est un flag pour indiquer si tous le display est 
protege. 
menu equ 0 

S1, si Rappelez-vous. A3 contient toujours DO ! 


On va maintenant évaluer la variable À (dernier parameire: 


variable numer :Que !, Les elements caracrteristiques (pour 
utiliser apres JEST) vont etre places à : ‘endroit DOPEA. 


ca) :e PC 
40 := Pc 


car 
dOsc 
gospvl 
gosbvl 
40*:5) 


*EXPEXC 
“AVE #01 
*DOPEA 


a:b ww 
datO=.a w 
40 -40+ DOPEA + OO := B(W) 116 q.) 
cdiex 

dartôsce à 
dGsdg+ $ DOPEA + 16 := 01 ($ q-) 
dis} 
créa: à 
dat9®c «a 
d0-d0+ 5 DOPEA + 211 := F-Ri-0 (85 q.) 
disdi- 1 
s'dat: : 
datôsc 1 DOPEA - 26 :° 


F-R1-3 (1 q.) 


Voila, les eiements caracteristiques de À sont sauves. 


Pour que :ATTN] se comporte bien, 11 faut verifier que 
les elements de M$ ne <ompor<ient pas de caracteres non 
afficha5les : NULL, CR, LF., ESC, 8BS). Rappelons que 
[ATTN) =omparera ie =ontenu du display avec M$(1), 


dis:5) en 
cedati à 


s2e.. 


Page 


007 


AHEUH ASS. 


0064 
206$ 
0066 
0067 
0068 
0065 
0070 
007! 
0072 
0073 
0074 
007$ 
0076 
0077 
0078 
0079 
0080 
068: 
0082 
0083 
0084 
0085 
0086 
co87 
0088 
0083 
2090 
909: 
0092 
0093 
0094 
0095 
0096 
0097 
coss 
0095 
0100 
0101 
0102 
0103 
0104 
010$ 
0106 
0107 
0108 
0109 
0110 
0111 


Page 


00056 
000€ 
000$E 
00062 
00064 
00066 
0006AÀ 
00060 
0006F 
00072 
00076 
00075 
00076 
00082 
00082 
00082 
00082 
00085 
00088 
0008 
0008E 
00091 
000973 
00097 
0009A 
0009c 
000AG 
000A3 
000A$ 
000À93 
000AC 
OOOAE 
00081 
00084 
00087 
20087 
000BA 
0008c 
0008F 
0ooc1 
oooci 
o00oc1 
oooc1 
000cs 
200CA 
coocc 
000cF 
000CF 


003 


v2.0 


8E0000 
D2 
15E3 
Ds 

D2 
3106 
ei 

80 

163 
$E3 


330000 
6000000 


14h 
568 


3181 
562 
4 
31D0 
962 


31A0 
562 
20 
3180 
562 
sc 
161 
A6D 
soc 


118 
CE 
SAE 
43 


1F00000 


AREUH ASS, V2.0 


0119 
0114 
011$ 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0129 
0140 
0141 
0142 
0:43 
0144 
0145 
0146 
0147 
0148 
91493 
9150 
0151 
0152 
0153 
0154 
9155 
0156 
0157 
0158 
0159 
9160 
0161 
0162 
0163 
0164 
0165 
0166 
2167 
0168 
2169 
0170 
0171 
0172 
0173 
0174 
017 


000CF 
000CF 
000cF 
200CF 
000cF 
000CcF 
000ocr 
000c7 
o0oocr 
000CcF 
000cFr 
000CF 
000CF 
000CF 
00ocF 
ooocr 
000CF 
200CF 
o00CcF 
o00cF 
000CF 
coocFr 
000CF 
000cF 
000CcF 
000cF 
000CF 
000cF 
000CF 
000CF 
000CF 
200CF 
o0ocF 
000CF 
200CF 
200CF 
200CF 
900CF 
000CF 
20006 
000Dé 
200D6 
200D6 
000D6 
000D0 
900E0 
200E4 
000€? 
000E8 
Q0CES 
000ES 
000E8 
000E8 
200ES 
200F 2 
200F: 
900F* 
00075 
0007“ 
200Frs 
000FD 
co1o1 
00103 


1500000 


1F00000 
AF2 
15DF 
17F 
1507 


1F00000 
147 


8£0000 
22 
1983 
27 
8£2000 


F INPUT 


FINPUT : BOUCLE PRINCIPALE 
CORPS DE LA BOUCLE a 


BOUCLE PRINCIPALE thoucle as? 


gosubl °GETMHSI DO :+ * longueur M$t1) 
c.0 a 
c-dat0 4 
bre a 
c.0 a 
ic(2) 96 
bic sa 
goyes invcar “Invalid Proapt" 
d0-d0+ 4 
gone ver 30 B.E.T. 
iInvcar ic(4) (vid)-(1*e1FRMP) “Iinvalid Pronspt” 


goving *ESERR 


Boucie interne de verification des caracteres Un per un 


ver20 a-dat0 b 
7a-0 b NULL 
goyes invcar “Invalid Prospt” 
lc(2) 27 C(B) := ESC 
asc b 
goyes invcar “Invalid Prospt” 
1c(2) 13 C(B) :° CR 
asc b 
goyes invcar “Invalid Proapt” 
1c(2) 10 C(B) :e LF 
asc b 
goyes invcar “Invaiié Prospt” 
1c(i2) 08 C(B) -= BS 
arc b 
goyes invcar “Invalid Prospt* 
dürd0+ 2 
ver30 b=b-1 b 
gonc ver 20 
cer0 
csc-1 « 
7cs0 2 
goyes ver1i0 


Maintenant, on prepare la boucle principale de SINPUT 


disñ(5) 
c.0 
cncei 
datilsc 


1 :° 1 (numero de la ligne courante 


‘boucle as) 


DORA RO RO RO ROR OR RO RON OR enorme 


BP:, BP- 
. 


But : Boucle principale de SINPUT. 
Entree: 
- BP: 
1 (FURCRO) » numero de la ligne courante (0..n-1) 
- BP: 
+ 1 (FUNCRO) = numero de la ligne courante (0..n-1) 
- DO = * dope -vecteuuuuuuur du tableau à afficher 
Sortie: 
+ suivant les touches : 
{"]. {vw}. (gJI*}. (gliv} : passage «a la ligne suivant 
la direction. sans Changer la ligne courante. 
[ENOLIME) valide la ligne courante. S1 l'ecran est 
constitue d'une seule ligne, termine SINPUT (comme 
(LiIMRPUT). Dans ce dernier cas. la variable À est 
mise à la valeur !. 
[ RUN} valide la ligne courante. et termine SINPUT. 
La variable À contiendra le numero de cette ligne 
[ATTE] : 
l: remet la valeur par defaut de la ligne courante 
2: s1 la ligne courante =ontientr deja ia valeur 
par defaut, {ATTA) sort de SIMNPUT. la variable * 
est mise à O. La variable/tabileau 15 n'est pas 
nodifiee par SINPUT. 


Abime: CPU 
Appelle: CHEDIT. DSPCHA, GETxsi. GETFST. CURSFL 
Niveaux: ? (CHEDIT; 
Note: le point 4 entree BF: est utilise par kATTN 
HistLor que: 
86/09/03: P.D. 6 J.T. conception 5 <odage 
86/11/22: P.D 6 J.T. Aocumentation 
86/11/22: P.D. & ].7. gestion des touches speciales 
96/11/24: P.2 Modification pour ajout de BP- 
homme neneneenmesemmnsetnnéensnttuemeanesmeenmm-s 
BP: 
40+(5) *+DOPEDS 
BP - 





Mise à 1er0 du masque avant d'envoyer D9(1]) à l'affichage 


di=(5) -0SPAHSK 
ce0 “ 
datlrec 16 
dli+di- 16 
datirhe 8 


Affichage du tableau D$11) Les caracteres de DSi) sont 
ranges en sens inverse. <e qui oblige a utilise une 
boucle speciale. 


dis(5) 1 
cedari à 
DO = * DOPExs 
gosubl °#GETxs#1! 
ce0 ë 
cedat0 4 
dec à 
gosubl »#GETFST 


DA) :* LENCxSit)) 
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Page O04 FINFUT : BOUCLE PRINC:FALE (beucle as) 
AFESH ASS  V2.0 CORPS DE LA SCUCLE 
c176 00109 DB cd a CA) :s+ LEN(x$(1)) 
2:77 00:08 132 a39ex 
0:78 C0O10E 6920 gote anpcio 
2:79 O01i12 
2180 09112 e 
161 O0:12 + Invariant de cette boucie 
2182 00:12 . aia) «+ pointeur dans x$(1!) 
183 00112 e C{a) * nombre de caracteres reslanñnt a afficher 
9:64 00112 e 
1685 00112 
C:66 90:12 . 
2187 00112 »* ancpsd * revsi("dspena”) 
2188 00:12 . 
0:89 00112 96 ancpsd rsthre RSTK :" LENCxS(1)) 
2190 00:14 CC "al « 
0:91 00116 CC as"! « 
0192 00118 96 cra « 
2193 0011A 06 rsthkee RASTK :e * x$(l) 
2:94 0011C 130 d0*a 
9195 O©Q011F 14A ardat0 b 
2136 090122 8F90000 gosivi °DSPCHA 
2197 0C129 07 cersthk COCA) 5e * xs(1) 
C:58 00128 DA arc « 
2159 00120 07 corstk CA) :° LENCx#(1)) 
2200 OC12F CE anpc10 csc-1 «a 
2201 00:31 S0E gonc ancpsé 
2202 00:34 ° 
2203 00:34 + Injection de BS(1) dans DSPMSRK 
2204 00134 . 
2205 00134 840 ste0 senu 
2296 00:17 1500000 dot) 1 
9297 9013E 1:46 crdat0 à 
2208 O014!: 8E2000 gosubi °#GETBS! 
2209 20147 167 dCe23+ € 
7219 0014A :F09000 dis) *DSPMSK 
2211 00:51 195EF cdato 16 
2212 90155 :950F datise :6 
22:3 20159 
22:4 00159 9876 crcei 
22:55 0015C 550 gonc in)10 
0216 001$ "lies 64 premiers caracteres sont LOUS proteges 
312:7 9015F 850 sue! menu 
0218 20162 inj10 
2219 00:62 16F dOsd0+ :6 
0220 00165 17F disdi- :6 
2221 00168 15E7 cedatc 8 
9222 0016€ 1507 datlsc 8 
2213 00170 
2224 00170 27 p* 7 
225 900172 BS16 cecei p 
0226 00175 20 p* © 
2227 00177 450 goc in320 
2228 00:7A + les 32 derniers caracteres ne sont pas proteges 
23229 00i7À 840 st .0 menu 
2230 00:70 in)20 
2231 00170 e 
92132 00170 + Curseur à gauche avant l'edition 
2233 00:70 e 
2234 00:70 SF00000 gosbv! °CURSFL 
2235 90C:84 
2236 00184 ÉRORORROOOROORORCOOOROOROROCRORRLOReR Tee L0re0evreeeceeee 
2237 00184 - edit 
2218 00184 . 
Page 905 FINPUT : BOUCLE PRINCIPALE (boucle .as) 
AREUH ASS. V2.0 CORPS DE LA BOUCLE , 
0239 00184 * But: faire :'edition de la ligne deja affichee. 
C240 00184 + Entree: 
C241 00184 . - la ligne est deja affichee. 
2242 00184 + Sortie: 
0243 00184 . r par les routines particulieres : 
2244 00184 . deplacement du curseur : kUP, KkDOWM. kTOP, kBOT 
0245 00184 . validation et envoi kENDLAK, kAUN 
3246 00:84 e sortie : kATTH, kOFF 
0247 00184 «+ Appelle: BP10 ou BP20 
0248 90184 + Histror ique: 
0249 00184 e 86/11/23: P.D. & J.T. conception & codage 
2250 00184 LLLLLELLELLLLLELLEEELIELLILLIRLELRLLLEELLLELELLELELELLLILLILILIILILILILILILLIT] 
0251 00184 
23252 20184 edit 
0253 00184 870 Tstri menu tous les car. sont proteges ? 
23254 90187 07 goyes BP20 oui affichage sans introduction 
0:35 00189 . non INPUT norsa! 
23256 90193 
027 00129 CLELLELEL LEE LLLLELLLIELLELLLEELLIELLLLI ELLE I LL LT LIST LI TLILLIILIILIILIIT. 
0256 00189 - BPi0 
0259 00189 . 
0260 00189 “ But: reaiiser l'edition de la ligne deia affiches, et 
9261 00189 e. envoyer sur es routines particuiieres. 
2262 00:89 + Entree: 
25:63 00189 + Sortie: 
22654 00:89 e par jies routines pbarticulteres. 
2265 20:89 «+ Aime: À-2. 90. D1. RO. A3. ST, :NSINP ‘flag pour le poil) 
2266 30:99 . DEFADR. JSRSTA. 32 nibbles at scratcn 
s267 20:89 + Appei:e: CHEDIT, FINDA 
:1258 00:89 + Niveaux: 7 
-:269 20:99 + H:stor :que: 
21276 3C183 . 96/1:,23: 8.9. 8 J,T. conception 6 cocage 
3472 20:29 COCOON R0000mnemmeenemamenmnsmatotretesesesesssre 
22"2 20189 
2:73 90199 BP:0 
2:74 90:89 e. 
22793 20:39 + Prev.ienz le Pol: *andler que =: est nous qu on travaille 
2:76 22:89 . 
2177 230189 :800000 405: °INSINP 
2273 :0190 .SAC azéatc : 
2279 90194 300 :c:1) +INSASK 
228C 90197 9É0E aa c p 
2181 90198 1:80 datOsa : 
2282 9019F 
2283 0019F e 
2284 9019F +: T-a-zueq un ? 
2285 90:9F D 
7286 30:19F 8F90000 gosbv! +CHEDIT 
2287 O0C:A6 
1:38 290:A6 e 
2289 OC1A6 + Previent le Poll handier que c'est nous qu'on travaille 
21929 2C1A6 » plus 
229: 90:46 . 
2292 O01A6 300 let1) “+INSASK (Complement a un de :!:NSASK ) 
::93 021A9 4816 csrc 
2:94 OO1AC :800000 40%15) <[ASINP 
229$ 20:83 :$24 a«-1at2 5 
3296 90187 9E46 araëc 5 Carry !s not affected 
3297 00188 :544 dar0ec 5 AB) n est pas aodifie 
2:98 9018F . 
2:99 00:8F " La <arry est encore dans l etat apres ©HEDIT 
2300 9C:8r - Sy * LOuCRe speciale 'ATTMI. 7°, erc. 
710: 2919F . Tv e 7 user ‘erainating <ev 
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Page 


006 


AREUH ASS. 


0302 
0303 
0394 
039% 
0306 
0307 
0308 
0399 
03:19 
0311 
03:2 
0313 
0::4 
0315 
0316 
03:7 
0318 
0319 
0320 
0321 
0322 
0322 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
6334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0345 
0344 
0345 
2346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0259 
0360 
0361 
0362 
0363 
0364 


Page 


0018F 
oc1eF 
001C2 
001C2 
001C2 
001C2 
001c5 
001CB 
001CE 
00100 
00103 
00108 
001D8 
001DA 
00100 
0010F 
001E2 
001E4 
001E7 
001E9 
001EC 
O01EE 
c01F! 
001F3 
001F3 
001F3 
001F3 
001F7 
001F7 
001F7 
001F7 
001F7 
001F7 
201F? 
001F7 
001F? 
001F? 
001F7 
001F7 
001F7 
001F7 
001F7?7 
001F7 
001F7 
001F7 
001F7 
O01FE 
00201 
00208 
00208 
00212 
00216 


v2i.0 


sac 


sF00000 
Do 

081 

EC 

201 


609F 


sF00000 
«4E1 
sF00000 
500 
8F00000 
SEEF 
8F00000 


0021D D4 


00217 
00226 
00228 
00228 
00220 
00230 
00232 
00235 
00237 
0023À 


007 


AREUH ASS. 


0365 
0366 
0367? 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
037S 
0376 


0023C 
0023F 
00241 
20244 
00246 
00249 
00248 
0024E 
00250 
00750 
00250 
00250 


sF00000 
62 

321 

82 

SAO 

E2 

231 

23 

o3e 

33 


632F 


F:NPUT BOUCLE PRINCIPALE 
CORPS DE LA BOUCLE 


(boucie 25) 


. 
gonc edit 
. 


* Et dans AA) 


le code de la touche 

gosbvl *FINDA 
con(2} 
relt3}) 
con(2} 
rel(3} 
con(2} 
re1(3) 
con(2}) 
re1(3) 
con(2} 
rel(t3) 
con(2} 
relt3}) 
con( 2) 
reli3) 
com2}) 
rei(3) 
nibhex 

L 

-+ Aucune de celles-ci 

. 


on ne reconnait pas, on ignore. 


gote edit 


CR nm mme 


+ BPr20 
u 


* But: traiïter le cas ou la ligne esl entierement protegee 


. C'est le cas particulier de MENU. 

- Entree: 

+ Sortie: 

. - par les routines particulteres. 

+ Abime  ÀA:0, DO, D1. 32 nibbles at scrat=h 


«+ Appelle: CKSREQ. SCRLLAR, POPBUF, FINDA 

- Niveaux: 6 (SCRALLR) 

- Historique: 

. 86/11/23: P.D. 6 J.T. conception 6 codage 

. 26/11/29: P.D. & J.T. ajout de RPTKY pour la repetition 


BP20 

"APTRY 
BP25 
*SCELLR 
sP:s 
*CRKSREQ 


gosbv! 
goc 
gosbv! 
gonc 
gosbv! 
goto BP12 
gosbvi S=POPBUF 
."b « 
gosbvl *#FIMDA 
con(2) 38 
rel(3) kEMDLH 
con(2) 43 
rel(3) kATTA 
con(2) 46 
rel(3) kAUR 
con(2) 50 
rel(t3) kUP 
con( 2) 51 


Go if repeated key 
BP12 


BP15 


8P25 A(B) -* keycode 


FIAPUT : 
CORPS DE 


BOUCLE PRINCIPALE ‘boucle .as? 
LA BOUCLE 


rel(3) 
con(2}) 
rel(3) 
cont 2) 
rel(3) kBOT 
con(2) 99 

relt3) kOFT 
nibhex 00 


kDOSM 
162 
kTOP 
163 


+ La 


touche n est pas reconnue . 


goto edit 


Paie 


ARFJE 


2278 
2379 
2380 
23931 
2332 
0383 
2384 
0385 
0386 
0387 
2388 
9385 
2350 
0391 
2392 
1393 
0254 
259$ 
2396 
2397 
0:98 
c399 
9400 
2491 
0492 
24035 
3404 
2495 
3406 
2457 
2498 
2499 
2410 
04:1 
9412 
24:35 
CLEFS 
24:25 
251 

24: 7 
24:8 
:4:9 
2420 
3421 
2422 
24:37 
2424 
3425 
T4126 
9457 
24:89 
2429 
2430 
2431 
2432 
2433 
9454 
c435 
0456 
3437 
2438 
2439 
:440 


Page 


008 
ASS. Vi.0 
00254 
002%4 
00254 
C0254 
00254 
00254 
00254 
001254 
002%4 
00254 
00254 
00254 
20254 
00254 
06254 
00254 
00254 
00254 
0G2%4 
00254 
0C254 
co258 
001SF 
06262 
09264 
00267 
00267 
00267 
00267 
00267 
00267 
00268 
00272 
00275 
00277 
00277 
09277 
00277 
00277 
90277 
00277 
20277 
90277 
90277 
2027? 
20277 
00277 
00277 
20277 
00277 
00277 
00277 
20277 
00277 
00277 
00275 
0027B SBE 
0027E 40 
00280 DA 
00282 1800000 
00289 146 
0028C 8BA 


7D60 
1F00000 
143 

E4 

$21 


7A50 
iF00000 
143 

CC 


D2 
E6 


TOUCHES DE DEPLACEMENT 


BOUCLE PR'NCIPALE choucle.as? 
i*! ([v) Igll*]1 [gliv] 


F INPUT Page 010 


AREUH ASS V2.0 


0028F 


009 


AREUH ASS. 


0441 
2442 
2443 
0444 
2445 
0446 
2447 
3448 
0449 
2450 
24%: 
0452 
23453 
2454 
9455 
2456 
2457 
3458 
3459 
2460 
2461 
2462 
246 
:464 
2465 
2466 
2467 
2468 
2459 
2470 
247! 
2472 
:4"3 
2474 
2478 
2476 
247? 
2478 
:479 

:480 
148: 

2462 

2483 

2484 

3485 

2486 

2487 

2488 

2483 


00291 
00293 
20296 


«0 


v2.9 


141 
683E 


0029A 
0029A 
0029A 
0029A 
0029A 
00294 
0029€ 
002AS 
0o2A7 
00Z2A9 
002AC 
202AC 
002AC 
902AC 
202AC 
002AC 
00280 
90287 
0028 
202C1 
002cs 
002C$ 
oo2cs 
202c5 
202CS 
202C5 
202C5 
22205 
2oic 

202c5 
202C5 
292C$ 
20:cs 
osics 
202CS 
20205 
20205 
20c2c8 
202C5 
2c2CS 
20205 
002CS 
2g2CS 
202cs 
002C$ 8E0000 

202C8 8000000 


7720 
1F00000 
DC 

£a 

s9E 


7510 
1F00000 
1800000 
142 
610F 


nm nee enreeeeneesserseeremerene 0491 00202 
- kUP, kDOWX, KBOT. kDOWN 0492 00207 
. 0493 00202 
- But: traiter les touches de deplacement de Curseur. 0494 00202 
+ Entree: 0495 002D2 
* Sortie: 0496 00202 
. - par ‘°curs” 0497 00207 
. - la variable i contient le numero de la nouvelle ligne. 0458 002D2 
-e Abime: AD, DO. D1. ST. 1 0499 00:02 
- Appelle: finign. curs 0500 00202 
- Niveaux: 5 (finign) 0501 00202 
- Hisrorique: 0502 00202 
. 86/11/21: P.D. 6 J.7, conception & codage 0501 00202 
. 86/11/24: P.0. atout de docusentat ion 0504 002D2 
Re nn nn nn nn neo rrenenennnnns..e 005 00202 
0506 00207 
mn nm mn nn eneneeseeseeremeure 0507 00202 
+ Touche {v) 0508 00202 
nn nm nn nn nm nement nmesemenmnene 008 00202 ?FEF 
0510 00206 8F00000 
kODOWN gosub finign 0511 00200 
DOWN: di°15} 1 0512 00200 
ardatl a 0513 00200 
a*atl à 0514 00200 
gone curs B.E.T. 0515 00200 
0516 00200 1800000 
PPPFETLITILILLILILILILLILITILILIIILILLELLLLLLLLLLLLLLLELELLLLLLLLLLE ELLE, 017 002E4 146 
+ Touche !{°! 0518 002E7 8E0000 
PTE LLILLELILLILLILITILLLILLLLILLILLLLLLILLLELLLLELLLLELLLLLLLLLELLEE 0519 002ED D0 
0520 00Z2EF 15A3 
kUP gosub finign 0521 002F3 De 
di=(5) 0522 002F5 8E0000 
a'dari à 0523 002F8 
*ra-. à 0524 002FB D2 
e 0525 002FD 3106 
+ Le code continue dans “curs* 0526 00301 88D 
e 9527 00304 40 
0528 00306 DS 
nn nn mme mm mme memeeereseenemeeteesnsee 0529 00:08 
e curs 0530 00:08 
- 0531 00308 
- But: gerer les deplacements dans lies differentes lignes 0532 00308 
- d'une entree. 0533 00308 1F00000 
° Entree: 0534 0030F 69:0 
. - AA; » nombre de lignes 0535 00313 181 
- Sortie: 0536 00316 14A 
Le + par BP: (Boucie Principaie) 0537 00319 14F 
- Abime: ACAI. C(A), D0 0538 0031C 171 
+ Niveaux: 0 0539 0031F 96À 
+ Historique: 0540 00522 41 
. 86/09/03: P.D. & J.T. conception & codage 0541 00324 966 
. 86/11/22: P.0. & J.T. documentation 0542 00327 F0 
OR mm meme nn nement mnnnomemneeunteonmeeesnee 0543 00329 CD 
0544 0032B 57€ 
curs c.0 à 0545 0032E 14F 
Cusce]l «à 0546 00331 96A 
Tctsa «à 0547 00334 11 
goyes cursi0 0548 00336 . 
asc « ata) :° 1 0549 00336 
curs10 dûü=(5) en 0550 00336 
c*dar0 à 05, 00336 
7c)s4 à 0552 00336 1800000 
goyes curs20 0553 0033D 6890 
FINPUT : BOUCLE PRIMNC:PALE (boucle .æs? Page 011 
TOUCHES DE DEPLACEMENT [“] {v) fg]l“] (gllv] AREUH ASS. V2.0 
ec « 0554 00341 
curs20 datisa a 0555 00341 
goto BP: 0556 00341 
0557 00341 
PPPTLTLILLLILLILILLELILITIILIIILILILLLILLLELLLLLLLILLLLLLLLELLLLELLEE) 58 00341 
+ Touche {g]i*] 0559 00341 
nn mnmmntommnennmne bebe tasessosnnnnenmenenemseses 0560 00341 708F 
0561 00345 
kTOP gosub finign 0562 00345 
d-(15) 1 0563 00345 D0 
ac + 0564 00347 6421 
*-a-: . 
genc cur s20 B.E.T. 


ÉD RO Rem mt onto emasesneteceeseteses.ee.e 
«+ Touche 'gj!v] 

ROCCO OR OR RON ROLL emeseeeeees 
k BOT gosub finign 
dist8) 1 
dO=(5) n 
*"<at0 a 
goto curs20 


Cette routine laisse le dernier caractere intact, |! "HPIL 


ne Da:avera donc que <e qui est necessaire. 


-. 
e finign 
-. 
+ But: terainer physiquement (pour |l'affichage)} une ligne 
. saisie. 
+ Entre: 
- Sor’1e: - 
+ Abime: ÀA:2, 90. D1, S7. AJ A 
+ Appe.ie :LFART. CALFND 
- Niveaux: voir la iocumentation de ILFART 
e 2e=sil: 
+ La routine systeme FINLIN n'est pas utilises. Ceci est 
e Au a son sode 4e ‘oncitlonnement : FINLIN “deprotege le 
- dernier caractere {le 6eme; et fait un CURSFR (cur sor 
. far rignt ce qui sa un desagreable effe: sur la videc. 
. Le curseur Dba.aye :es 96 caracteres. 
Eu 
+ Histor 1Que: 

. 86/11/29: 8.9. 8 J.T. conception & codage 

. 36/11/29: P.9.  & Z.T. documentation 


COORDONNER 000000 00e eesen 


finign gosubl +ILFART Voir le fichier poi.as 
goving *#CALFOF 





FINPUT : BOUCLE FRINCIPALE :boucle.as) 
TOUCHES DE SORTIE [ATTN] 


[OFF] 


nn nn mem mm nn nn nn ene sem ennennnnsenemesnennnmnnnnn ee 


kOFF 


- KATTN, 

- But: trailer les touches de sortie de SINPUT. 
+ Entree: 

* Sortie: 

. - par EXIT. ou BP: 

. « la variable À contiendra 0 

- Appelle: finign, BP- ou EXIT 

+ Historique: - 

. 86/11/23: P.D. 6 J.T. conception & codage 

. 86/11/24: P.D. ajout de documentat ion 


nn nm nmmn rm snnmnnenennnrnmennee 


+ Touche ([ATTN] 


kATTN gosub finign 
gosbvl *#ATNCLR C'est magique ' Mais ca evite au 
e curseur de se mal retrouver. 
e 1{ display » M$(1) then EXIT avec © ; 
° DISP M$(1) 
- 
d0=(5) 1! 
cedat0 « 
gosubl °GETMSI C(A) :+ DO :* * LEN(M#(1)) 
.-0 « 
ardat0 4 AUA) :+ LEN(MS(()) 
bsa s BA) :« LEN(MS(L D) 
gosubl *GETFST DO :" * M#(1)(1.1) 
c-0 a 
le(2} 96 
7Désc à 
goyes kATN10 
bre a 
kATN10 


+ B(A) » longueur en octets de ce qu'il y a a comparer 


di-(5) *DSPBFS 
goto kATN30 
kATNW20 dO=d0- 2 
a“dat0 b 
c+dat1 b 
disdi- 2 
?c.0 b 
goyes KkATN4O arrive au bout de DSPBUF avant M#1: 
?csa b 
goyes kATN40 DSPBUF[).)] # M#(12(3.)] 
kATN30 bsb-1 à 
gonc kATN20 
c-dati b 
?c.0 b arrive au bout de M3(1) avant DSPELF 
goyes exit 
kATN40 


+ DISP M#(1) 


- 
d0-(5) on reaffiche M$ sans rien changer 


goto 


*DOPEMS 
BP - 


FINPUT : BOUCLE PRINCIPALE ‘boucle as? 
TOUCHES DE SORTIE [ATTN] [OFF] 


+ Touche {1](0FF) 


nn nnnnnmnnnemnensn ess nnmeseseeponaceneeeeseemsere 


kOFF 

gosub finign 
exit 

..0 & 

goto EXIT 


JPC 43 Page 39 
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012 
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cs6é 
2567 
CS68 
2569 
°570 
0571 
387 
-573 
0974 
0575 
2576 
28477 
2578 
2579 
2550 
2581 
ET 
0583 
284 
258$ 
2:86 
2587 
0:88 
2589 
:5930 
c29: 
2932 
259) 
2494 
5553 
2596 
2297 
2:98 
2:59 
2600 
2631 
2692 
PL PE. 
0624 
0625 
2696 
28297 
2698 
2609 
2610 
26.: 
26:2 
613 
0614 
26:58 
261$ 
0617 
2618 
2619 
2620 
262: 
2622 
2623 
2624 
2525 
2626 
2637 
2628 


Page 


00348 
20348 
0048 
00)48 
00548 
00)48 
09348 
co:48 
00348 
0C)48 
09348 
09348 
0048 
00348 
0523648 
00148 
c0348 
00348 
00548 
00548 
00348 
00348 
00348 
2034F 
20356 
0c3%7 

00:58 
0035%$E 
20369 
29364 
C0364 

20364 
920364 
20364 
20164 
20364 
00368 
00368 
20368 
20368 
00368 
20:68 
09368 
20:68 
00168 

00168 
00368 
20016F 
20372 

20372 

20372 

00372 

00372 

00372 

20372 

00572 

00372 

00375 

203?7$ 

2937C 

20383 

00389 

00389 


ui3 


AREUF ASS. 


c629 
2630 
063: 
2632 
0633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2647 


2038C 
0038E 
2039: 
20393 
20393 
00393 
00393 
00393 
00393 
20393 
20393 
20393 
0039A 
20390 
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7250 
1809000 
146 

CE 

SAA 

AO 

67FE 


7930 


iF00000 
147 


108 
1800000 
1F00000 
8£0000 


118 


v2.9 
CE 
LE 


1F00000 
143 
6EC0 


FINFUT : 
TOUCHES DE VALIDATION 


BOUCLE PRINCIPALF ‘boucle as? 
’ENDLINE} (RUN) 


Ro nmnrnnnmees..e 


kENOLN, kRUN 

But traiter les touches de validation d une ligne. 
Entree: :- 

Sortie: 


- par EXIT. ou kDCWN- 
- la vartable À contiendra le numerc de la ligne 
courante pour [RUN] ou [ENOLINE) s1 une seule ligne. 
Appelle: VALIDE. kDOWN- ou EXIT 
Deratl: si 11 n'y a qu'une seule ligne. SiNPUT traite 


la touche ![ENDLINE)} comme {RUN]. 

Historique: 
86/11/23: P.D. 6 J.T. conception & codage 
86/11/24: P.0. ajout de documentation 


Rennes 


Touche :ENDLiNE) 


kENOLN 
gosub VALIDE 
d0(5) «n 
csdat0 à 
cec-i s 
T<.0 a 
goyes kRUNOQ 
gote KDOMN - 
ss... PÉTLILLILILILILLELLLLLLLLLLLEE) none. s.e 
Touche !AUN] 
Reno nnnmnenenenee 
kARUN 


gosub VALIDE 


kRUNOO 


Copier le tableau U3 dans le tableau 18. 


Algorithme : 
for 1z:= n downto 1 do 
becin 
iS(1) 
end ; 


ie U#iz) 
di°(5) en 
cdati « 


for 1 :° n downto 0 de 


KRUN:0 


Assertion : 
CA)» 7 


rûsc 
«DOPEUS 


“DOPE!S 
"ELMCPY 


D0 :: 
D1 


40=(%) 
dis(5) 
gosubl 


* dope -vecteuuuuur Source 
:= * dope -vecteuuuuur destination 


c=r0 


FINPUT : BOUCLE PRINCIPALE (boucie as) 


TOUCHES DE VALIDATION ENDLINE) [RUN] 
c=c"1 à 
7:20 # 
goyes kRUN10 


end ; 


Renvoyer le numero de la ligne courante dans la var. À 
et revenir a Basic. 


dis(5) 1 
a=dati «a 
gote EXIT 


Page 
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0644 
0645 
0646 
0647 
0648 
0649 
0650 
0651 
0652 
0653 
0654 
0655 
0656 
0657 
0658 
0659 
0660 
0661 
0662 
066) 
0664 
066% 
0666 
0667 
0668 
0669 
0670 
0671 
0672 
067) 
0674 
067% 
0676 
0677 
0678 
0679 
0680 
0681 
0682 
068) 
0684 
0685 
0686 
0687 
0688 
0689 
0650 
0691 
0652 
0693 
0694 
0695 
0696 
0657 
0698 
0699 
0700 
0701 
0702 
0703 
0704 
o705 
0706 


Page 


003A! 
003A! 
003Aî 
003A1 
003A1 
003A1 
003A1 
c03A1! 
003A! 
003A1 
003A! 
0G3AL 
003A! 
003A! 
003A! 
003A1 
003A1 
00JAI 
003AÀ1 
003A! 
003A! 
003A1 
003A1 
003A1 
003A) 
003A1 
003A1 
003A1 
003A! 
003A1 
003A1 
003A1 
003A8 
003AB 
00381 
00381 
00381 
0038: 
20188 
003B8A 
008€ 
003C1 
003C1 
003C1 
003C} 
003C4 
003c7 
00€ 
oo3cc 
003CF 
00302 
00305 
0030 
0037 
00305 
0030 
0030 
003DF 
0030 
00306 
0030F 
Ô003E2 
003€ 


015 
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0707 
0708 
0709 
0710 
0711 
0712 
0713 
0714 
0715 
0716 
0717 
0718 
0719 
0720 
0721 
0722 
0723 
0724 
072$ 
0726 
0727 
0728 
0729 
0730 
0731 
0732 
2733 
0734 
0735 
0736 
2737 
2738 
2739 
2740 
0741 
2742 
0743 
0744 
0745 
2746 
074? 
0748 
0749 
2750 
0781 
0752 
0783 
0754 
075 
076 
0787 
078 
0759 
0760 
0761 
9762 
2763 
0764 
0765 
0766 
2767 
PEL T | 
1769 


003Es 
003ES 
003EE 
003F1 

00371 

003F1 

00371 

cor 
003FC 
003FF 
00406 
00400 
00400 
00400 
00400 
00410 
00412 

00414 

00417 
00417? 
0041E 
00420 
00424 

00426 
20429 

00428 
00428 
00428 
00428 
00432 

00435 

00438 
00418 
20438 
00438 
0043€ 
0044! 

00443 

00446 
90441 
00440 
20440 
00440 
00440 
0044D 
00440 
00440 
00440 
2044D 
00450 
20453 
00455 
20458 
0045A 
20454 
0045A 
2045À 
0045A 
0045A 
2046: 
0046: 
20461 

2046: 


1800000 
146 
60000 


1F00000 
02 

3106 
spo 


148 
s6c 


1C1 
A6E 
s1F 
B66 


1503 
16) 
$E0 


148 
148 
1C1 


v2.0 


161 
A6E 
50F 


70D€ 
#F00000 
50 
sF00000 
sFo00o00 


171 
cc 
cc 
100 


1800000 
D2 

1563 

ce 

sB6 

82 


1800000 
146 
#£0000 


:18 


sic 
1583 
162 


132 
133 


136 
ce 


s200000 


3100 


000000 


Fi 
UT 


F1 


NPUT BOUCLE PRINCIPALE 
ILITAIRES 


tboucie as)? 


D RO RO RD RD none eneneemmnneseneen.e 
VALIDE 
But: valider une ligne, c'est à dire copier l entree de 
l utilisateur dans U#(1) 
Entrer: 
- DSPBFS contient l'entree de l'utilisateur 
Sortie: 
- U#(1) contient les seuls caracteres entres 
D#(1) contient le dispiay buffer tel quei 
Abime: 
Appelle: GETD$I., finign. DSP300, POPIS, GETUSI, DIMSTK 
Niveaux: 
Detail: 
Algor ithae: 
sdresse de DS11) 
recopier DSPBFS-DSPBFE dans DSi 1) 
finign 
DSPs00 
enlever le CR de le fin 
aûresse de US11) 
mettre LENIUS(1)) « jour 
recopier Math-Stack dans US$(1) 
Histor ique : 
86/11/23: P.D. & JT conception 6 codage 


RO DR DR DRRRORR  n nm mn nm poonneeennnnemnn ee 

VALIDE 

adresse de DS(t) 
d0.(5) 1! 
c-dar0 «a 
gosubl "#GE7TD6] 

recopier DSPBFS-DSPBFE dans D#11) 
die+(5) (-DSPBFE )-2 
c.0 # 


lc(2) 96 
gonc vid020 


Nb de boucies 
D.E,7T: 


boucle pour determiner la longueur de D 1) 


v14010 asdati b 
*as0 b 
goyes vid030 
di-di: 2 
vid020 €csc-1 b 
gonc vldo1o 
vi4030 cece1 b 


sortie des qu'un caractere est 
trouve 


CLA) »* longueur en octets de la chaine lue dans DSPBUF 
datOsc 4 :e CB) 

d0-40+ 4 

gonc vido50 


LEN(DS(1)) 


boucle de recopie 


vi4040 ardati D» 
dat0=s D 
disdl- 2 


RPUT : BOUCLE PRIRCIPALE boucle as? 


UFILPTAIRES 


40=40+ 2 
vi4050 cec-1 b 
gonc vido40 


finign : DSPs00 


gosub finign 
gosbvl =D1MSTK 
ST°1 ° 
gosbwv! °#DSPs00 
gosbvi #POP1S 


Pour retour apres DSPs00 


Enlever le CE de la fin 


di-di- 12 
a“a-l « 
a-a-1 « 
rO.a 


LEN(DSPSFS) :+ LEN DSPBFS)-1 (octe 
sauver la longueur dans RO 


d0=($) (*DOPEI#)-9 DO 
c.0 a 
c=dat0 4 
cecec à 
Tac a 
goyes strovf 


:* * longueur «ax des eiemen- 


CtA) :+ LEN(CDISPS) en quartets 


adresse de US::) 


40-181 1 
c-dat0 « 
gosub| +GETUS: 


DO :° LEN(US(1)) 


sercre LENCUS:::1 à ‘our 


cerQ restaurer la longueur de la chaire 
..0 4 

ac # 
esrb 
datO=a 4 
do-40+ «4 


Ait: 
ACA) 


-e 0 


:e AB) :+ longueur æen ocLe": 


recopter Math-Stack dans J8(:1) 


recapituiatif 
DO + start of dest 
Di » start of sourre 
AA) * longueur en Sctrets 


ad0ex 
alex 
acex a 
cd0ex 
Cucec « 


DO + start of source 

D1 « start of est 

CIA) + longueur en quar'ets 
goving "#MOVEU3 

strovf 

es TROv 

“#F=NR 


lctz! 
goving 
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0770 0046€ 
0771 0046C 
0772 0044C€ 
077) 0046C 
2774 0046C 
0775 0046C 
2776 9046C 
0777 O0046€ 
0776 O0046C 
2773 9046€ 
0780 0046C 
2781 0046€ 
0782 0046€ 
0783 0046€ 
0784 09N46C 
0785 09460 
2786 0C46C 
9787 D0046C 
0768 0946C 
2789 0046C 
0790 0046C 
5791 0046€ 
0732 0046€ 
C7933 O046€ 
0794 9046C 
279% 0C46C 
2796 09046C 
2797 0046€ 
5798 0046C 
0799 90473 
2800 0047AÀ 
9891 0047E 
C322 00482 
2893 00482 
2854 00485 
0805 00488 
2856 00488 
2897 0948€ 
96808 9048 
2829 9045: 
28:0 00494 
28:11 00497 
2812 00497 
28:35 2045A 
2814 9049E€ 
281% O04A! 
02:6 O04AÀ! 
2817 0044! 
2818 O04A: 
08:9 OC4aA: 
2620 004A8 
08:1 OO4AF 
0822 J04AF 
26823 OO04AF 
0824 OO4AF 
0825 00486 
2826 90488 
0827 00488 
2828 00488 
26829 004€ 
2839 004C4 
2831 9004C7 
0832 204CE 
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0833 00402 
2834 004909 
c8:5 00409 
28136 20409 
2817 00409 
2858 904E0 
2839 90427 
2840 OC4£E 
2841 OC4EE 
2842 OO4EE 
2843 OO4EE 


V2.0 


1800000 
1F20000 
i5E0 
15D0 


184 
1CE 
146 
145 


184 
146 
2:35 


18F 
1567 
AFS 


8F00000 
sF00000 


1800000 
D2 
144 


8F00000 
04 

1CF 
1517 
sF00000 


vz.9 


sF00000 


8F00000 
sF00000 
8000000 


FINPUT BOUCLE PRINCIPALE Cboucie.as? 

UTILITAIRES 
nm nn mme mm mm mnt nnrareenemmeenessmnsuse 
e EX:T 


But: stocker la valeur de retour dans la variable À, et 
revenir à Basic par NXTSTM. 
Entree: 
A(A) * valeur a renvoyer (en hexa) 
- DOFEA + informations sauves lors de l evaluetion de À 
- AVMEÈME + sauvegarde du pointeur de Math-Slack sauve 
lors de l'evaiuation de À. 
Sortie: 
par NXTSTH 
Abime. ouh la ia 
Appelle: DEST, STORE, NXTSTM. HDFLT, AVE+-D1, ATNCLR,NOSCRL 
Niveaux. 6 (STORE) 
Historique: 
86/11/22: P.D. 6 JT. conception & codage 
86/11/24: P.D. ajout de documentation 


EXiT 


Lors de 1 evaluation de À, on avail sauvegarde ses 
elements caracteristiques dans DOPEA, Il est maintenant 
Lenps d'ailes les rechercher, pour utiliser la sequence 
DEST, STORE etc. ef I1DS 1. page 13-13 


40+(5) { -DOPEA)+26 
die($) °F-R1:3 
cede:0 1 

datire : 


Variable À 


d0-40- 5 
d'rdi- 15 
cdat0 a 
da’;°c a 


éosd0- 5 
crdato «a 
disc 


d0s49- 16 
ciao w 
Dec C1 


Maintenant que tout est restaure. on reprend ia sequence 
habituelle de stockage dans une variable. cf IDS 1. 


gosbvi »DEST 
gosbvl °D1MSTK 


N'abime pas A(A) 


TRACE OFF 


d0:(5) #S$-R1-2 
c.0 « 
dat9rc «à 


gosbvl "#HDFLT AW) 
sethex 

disd:- 16 
dati-a w 
gosbvl 2AVE=D1 


:+ L en sortie (12 digits form) 


Math-Stack :* AW) 


FINPUT : BOUCLE PRINCIPALE Cboucle.as) 
UTiLITAIRES 


gosbvi »#STORE variable À := 1 en sortie 
C'est fini 
gosbvl *#ATNCLR On n'a jamais appuye sur [ATTN] 
gosivi =NOSCRL Le curseur est disponible 
govlng °NXISTM Au revoir... 
O UF'fress 


end 





Page 018 FINFUT BOUCLE PFRINTIPALE ‘boucle .as)? 
AREUH ASS. V2.0 ss... SYMBOL TABLE ==. 
*ATNCLR Extrn Ukn - 0510 0837 
*AVE 01 Exten Ukn - 0031 98) 
*BSERR Extern Ukn - 0076 

BP- 000D6 Bel 91%2 - 0553 

BP10 00189 Rel 0273 - 

BP12 00201 Rel 0349 - 0352 

BP:5 00216 Bel 0353 - 050 

BP20 001F7 Rei 0346 - 0254 

BP25 00210 Re] 01954 - 0j48 

BP : DOOCF Rel 0150 - 044) 
*CHEDIT Extrn Ukn r 0286 
*CKSREQ Exten Uxn - 0351 
"CRLFOF Exten Ukn r 0489 
*CURSFL Extrn Ukn - 0234 
"D1MSTK Extrn Ukn « 0714 0820 
*DEST Extrn Ukn - 0819 
"DOPEA Extrn Ukn - 0032 0798 
*DOFEDS Extrn Ukn + 0151 
*D0PEIS Extrn Vkn " 0625 0726 
-DOPFEMS Extern Ukn - 0552 
“DOPEUS Extrn Ukn * 0624 
"0SPs00 Extrn Ukn - 6716 
*DSPBFE Extrn Ukn - 0681 
s0SPBFS Extrn Ukn r 053) 
:DSPCHA Extrn Ukn r 0196 
-DSPASK Extrn Ukn - 0156 0210 
*ELMCFY Exten Ukn - 0626 
*EXPEXC Extrn Ukn - 0030 

EXIT 0046C Reel 0791 - 0564 0642 
°F-R1-0 Extrn Ukn + 0047 
F-R1-3 Extrn Un - 0799 
-FIKDA Extrn Ukn - 0307 0755 
Filed OQ4EE Re] 0843 - 

*«GET8# 1! Exten UVkn «+ 0208 
"CETDS! Extern Jhkn - 067? 
2GETFST Extrn Ukn - 0175 0522 
*GETH#: Extrn Ukn - 0064 9518 
+CETUS: Extrn Jkn - 0737 
*GETx# 1 Extrn Jkn + 0171 
*HDFCT Extrn Ukn * 0828 
*ILFART Exten Ukn - 0488 
"INSINP Extra Ukn r 0277 0294 
* INSMSK Extrn Ukn + 0279 0292 
2LOCSPC Extra Ukn - 0005 

RE ERR Exten Ukn + 0769 
*HOVEU3 Extrn Wkn - 076% 
“NOSCRL Exten Ukn - 0838 
"NXTSTM Extrn Ukn - 0839 
-POP15S Exten Ukn - 0717 
“POPBUF Extrn Ukn + 035) 
sRPTKY Extern Ukn r 0347 
«S-R1-2 Exten Ukn + 0824 
"SCALLR Extrn Ukn * 0349 
"STORE Exten Ukn - 0833 
VALIDE 003A1 Rel 0671 - 0588 0601 
ancpsé 00112 Rel 0183 - 0201 
enpcio 0012F Bel 0200 - 0178 

curs *-00277 Rel 0432 - 0402 
curs10 00282 Rel 0437 - 0435 
curs2q 00293 Rel 0442 - 0440 0453 0463 
se: PRAP Extrn Ukn " 007s 
*eSTROV Extrn Ukn + 0768 

edit 00184 Bei 0252 - 0303 0328 0376 
Page 019 FINPLT : BOUCLE PRINCIPALE (boucle.as? 
AREUH ASS. V2.0 sé" SYMBOL TABLE ==. 
exit 00345 Rel 0562 - 0547 
finign 002CS fe 0488 - 0298 0408 0449 0459 0509 0560 0713 
“id EÉxtrn Ukn - 0075 

1 Unkem Ukn 0008 - (0106 0166 0206 0399 0409 0450 0460 0516 0640 


+ 0675 973$ 


inj10 00162 Rel 0218 - 0215 

inj20 0017D Rei 0230 - 0227 

invcar 00075 Rel 0075 - 0071 0082 0085 0088 0091 0094 
kATH10 00308 Bei 0529 - 0527 

kATH20 00313 Bel 0535 - 0544 

kATN30 00329 Rel 0543 - 0534 

kATN40 00336 Reel 0548 - 0540 0542 

kATTA 002D2 Reel 0509 - 0311 0359 


xBOT OC2AC flel 0459 - 0321 0369 


kDOUA 00254 Reel 0398 - 0317 0365 
k DOM - 00258 ei 0399 - 0594 
kENDLH 00348 fe] 0587 - 0309 9357 
kOFF 00341 flel 0559 + 0323 0371 
k RUN 00364 Reel 0600 - 0313 036: 
kRUNOO 00368 Heli 0602 - 0591 

kRUM 10 00372 Rel 9617 - 0631 

kTOP 0029AÀ Aie] 0449 - 03:19 0367 
kUP 0026? lei 0408 - 031% 9363 
Renu 20000 Abs 0019 - 220% 921* 0229 0233 
Mn Extrn Ukn * 0060 9417 9461 0589 0612 
strovf 00461 Rel 0767 - 0711 
ver10 900053 fe! 9063 - 0101 

ver 20 20082 Mel 0080 - 0097 

ver 30 00081 Mel 0096 - 0073 
vid0:o 003€; lei 0688 - 0691 
vid020 003CC el 0692 - 90684 
vid030 00302 flel 0694 - 06930 
vldo40 003DF Rel 0704 - 0709 
v;:d0s0 003EB lei 0708 - 0700 

Source bouc le .as 

Otject ob}/boucie ac 

Listing list/boucle al 

Date : Mon Mar 16 11:53:29 1987 

Errors : 200 


Areuh Assembier Linker V2.0, (c: PF. David & ]J 


Taillandier 1986 Paris. 
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ANAGRAMMES ET 
PERMUTATIONS 


Dans cet article nous nous proposons de 
résoudre un problème qui s’énonce simplement 
mais dont la solution n'est pas immédiate. Il 
s’agit, étant donnés n éléments, de trouver les 
(n!) combinaisons possibles (par exemple pour 
n=3 : 012-021-102...). Ceci peut avoir de 
nombreuses applications quand on veut couvrir 
tous les cas de figure ;: nous verrons pour 
notre part comme application un programme 
qui donne tous les anagrammes d’un prénom. 


Le problème se ramène à trouver tous les 
nombres de n chiffres comportant une fois et 
une seule fois les chiffres 0, 1, 2 … n-1. 


Voyons tout d’abord une première méthode, 
simpliste et Jlongue d'exécution, mais de 
programmation facile. Si l’on se place dans le 
cas n=5, le premier nombre sera 01234 et le 
suivant sera le premier nombre dont le produit 
des chiffres ajoutés d’un fait 5! et ainsi de 
suite, le dernier nombre étant 43210. Nous 
avons donc intérêt dans le programme à nous 
placer en base 5. Il faut dans un premier 
temps créer une routine qui convertit un 
nombre en base dix en une autre base. Cette 
routine étant effectuée de nombreuses fois il 
est conseillé de la faire la plus rapide possible 
(si possible en assembleur pour ceux qui 
savent). Voici celle que je vous propose : 


130 SUB BASE(X,B,Y) à Y=0 

140 IF X#O THEN M=INT(LOG(X)/LOG(B)) à 
Y=Y+INT(X/B"M)*10"M à X=MOD(X,B°M) à GOTO 150 

150 END SUB 


Prenons un exemple : 

CALL BASE(3,2,Y) à ŸY 

nous donne la valeur de 3 en base 2. Le 
programme en entier est donc : 


10 DESTROY ALL @ INPUT "Nbre de chiffres : ";N 

20 Z=FACT(N) 

30 FOR 1=1 TO N-1 @ A=A+I*N"I à B=B+I*N"(N-1-1) Q 
NEXT 1! 

40 1=B 

50 X=I @ CALL BASE(X,N,Y) à AS=STRS(Y) à 
A$="000000000" [1,N-LENCAS)]&AS$ 

60 Y=1 à FOR J=1 TO N 

70 Y=Y*(VALÇCASLJ,J])+1) 

80 NEXT J 

90 IF Y=Z THEN 110 

100 I1=I1+N-1 @ GOTO 50 





110 K=K+1 Q PRINT STRS(K)&" : "EAS 
120 IF I>=A THEN END 
140 et 


les lignes 130, 150 ont 


données. 


déjà été 


Comme on s’en rend compte en exécutant ce 
programme, sa lenteur le condamne 
définitivement. 


La seconde méthode est très différente de la 
première. Reprenons le cas n=5. Il s'agit 
d'augmenter le i°"® chiffre de notre nombre 
de manière à ce qu'il soit différent de ceux 
qui le précédent et de telle sorte qu'il soit 
inférieur à 5 (dans notre exemple), puis on 
passe au rang i+l et ainsi de suite. Le 
programme devient alors : 


10 INPUT "Nbre de chiffres :"°N @ IF N>=10 OR N<=1 
THEN 10 
20 A$=10123456789"[1,N] @ I=N-1 à B=0 
30 IF I=N-1 AND B=0 THEN DISP A$ 
40 IF B=1 THEN K=-1 ELSE K=VALÇ(AS[II,1]) 
50 K=K+1 à IF POS(AS[1,1-1],STR$(K)) AND K#N 
THEN 50 
60 IF K#N THEN B=1 Q A$S=A$[1,1-1]&STRS(K) ELSE B=0 
70 IF B=1 THEN B=I#N @ 1=I-(I=N)+(I#N) @ GOTO 30 
80 1=1-1 à 1F 1=0 THEN END ELSE 30 


Enfin une dernière remarque pour que tout le 
monde puisse comprendre le programme : la 
différence de deux nombres composés 
uniquement des n-1l premiers entiers est 
supérieure à n-l (ceci nous évite des boucles 
inutiles). 


L'application promise est simplement Ja 
transposition du programme précédent à des 
chaînes de caractères. Les modifications à 
faire sur le programme sont les suivantes : 
10 INPUT "Prénom : ":P$ @ N=LEN(P$) @ 

IF N>=10 OR N<=1 THEN 10 
Changer au pas 30 DISP A$ par GOSUB 90 et 
ajouter : 


90 CS$="" à FOR W=1 TO N 

100 C$S=CS&PS [VAL(AS [W,W] >+1, VALCAS [W,W] )+1] 
110 NEXT W à DISP C$ 

120 RETURN 

Voilà ce sera tout pour aujourd'hui, vous 
pouvez aller jouer maintenant. 


Alain Herreman (200) 








POUR DEBUTER 
AVEC GOSUB, GOTO, RETURN 


Soit un jeu de questions à réponses multiples. 
Dix questions et trois solutions sont proposées. 
On y répond par un chiffre qui correspond au 
rang de la réponse qui vous paraît bonne. Si la 
réponse est incorrecte, Titan vous donnera le 
bon numéro. 


Après chaque réponse, un GOSUB vous envoie 
sur la ligne où commence le traitement de 
votre réponse. À l’intérieur du traitement de 
votre réponse, un GOTO permet de vous 
indiquer la bonne réponse. Un deuxième 
GOTO vous renvoie sur la suite des questions. 


Vous trouverez le programme JEU listé avec 
les autres Basic. En espérant que cet article 
aidera à la compréhension du Basic. Le 
programme est commenté ce qui permet de 
suivre les GOSUB, GOTO et RETURN. 


Alain Gillet (199) 


"# 








JPC 43 Page 43 


Programme "JEUX" (Questionnaire a Choix Multiples) 


- JEUX 
PROGRAMME DE CONNAISSANCE 
N : Variable contenant vôtre score 


70 
80 


100 


120 
130 
140 
150 
160 
170 


190 
200 
210 


230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
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R : Variable contenant le numéro de La réponse choisie 


T$ : 


Variable stop-encore 


On règle Titan 
DELAY .9,.250 


FIX O 


On initialise La variable du compteur 


N=0 


On affiche la règle du jeux 


PRINT ! 
PRINT "! 
PRINT "! 
PRINT "! 
PRINT " 
PRINT !! 
Le jeux 
PRINT " 
PRINT "! 
WAIT 5 


Bonjour.Ce programme va vous permettre de tester vos connaissances. 
Régles du jeux." 
Dix questions d'ordre général." 
Trois solutions proposées." 
Répondre par 1,2,3." 
Chaque bonne réponse donne deux points. 


commence. Bonne chance 


1Q: Quel est Le président actuel de La république?" 
1)Mr Miterrand 2)Mr Rocard 3)Mr Chirac! 


Le temps de réflexion est fini, allons voir si La réponse est bonne. 


GOSUB 710 
PRINT " 
PRINT " 
WAIT 5 
GOSUB 870 
PRINT " 
PRINT !! 
WAIT 5 
GOSUB 710 
PRINT " 
PRINT "! 
WAIT 5 
GOSUB 810 
PRINT !! 
PRINT !! 
WAIT 5 
GOSUB 870 
PRINT 
PRINT "! 
WAIT 5 
GOSUB 810 
PRINT !! 
PRINT "! 
WAIT 5 
GOSUB 710 
PRINT " 
PRINT "! 
WAIT 5 
GOSUB 810 
PRINT 
PRINT !! 
WAIT 5 
GOSUB 710 


2Q: Durée d'un mandat législative?! 
1)4 ans 2)7ans 3)5ans"' 


3Q: Vitesse commerciale du T.G.V.?" 
13260 2)300 3)200" 


&4Q: Quel est Le nom du moteur de Concorde?" 
1)0lympe 2)0lympus 3)0lympia"! 


5Q: Quel est l'âge maximal de La scolarité?" 
1)14 ans 2)18 ans 3)16 ans! 


Quel est l'âge civile de La majorité?" 
118 ans 2)21 ans 3)16ans!! 


7Q: Un kilo octet c'est?! 
11024 octets 2)1000 octets 3)992 octets! 


7Q: Un général une étoile est?! 
1)Un général d'armée 2)Un préfet mobilisé 3)Ca n'existe pas" 


9Q: Lorsqu'il est 12h à Paris il est à Tokyo:" 
1)21h 2)20h 3)9h" 





PRINT #10Q: 
PRINT " 
WAIT 5 
GOSUB 710 
On affiche votre score final 


111856 21910 31800" 


PRINT !! Votre note est !":N:1/20" 
On recommence! 
INPUT "! 


Si oui on y va 

IF T$="ON THEN GOTO 100 

Ici on remet Titan dans son état préféré. 
FIX 4 

DELAY .5,.125 

END 


Mr Freud médecin et psychologue est né le?" 


Voulez-vous essayer à nouveau (0/N)?2":T$ 


750 


770 
780 


800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 


Votre réponse S.V.p. . 

INPUT "Réponse :!t:R 

Si votre réponse est 2 ou 3 alors perdu 
IF R=2 OR R=3 THEN GOTO 780 

Bravo pour votre bonne réponse 

IF R=1 THEN PRINT "Gagné! à BEEP 1500 
On tient le score à jour 

N=N+2 @ GOTO 800 

PRINT "Perdu.C'était 1" Q BEEP 2500 


Titan a digèré votre réponse, Les questions continuent. 


RETURN 

INPUT "Réponse :!:R 

IF R=1 OR R=3 THEN GOTO 850 

IF R=2 THEN PRINT "Gagné! à BEEP 1500 
N=N+2 @ GOTO 860 

PRINT "Perdu.C'était 2." Q BEEP 2500 
RETURN 
INPUT WRéponse :!!2R 

IF R=1 OR R=2 THEN GOTO 910 

IF R=3 THEN PRINT "Gagné! à BEEP 1500 
N=N+2 @ GOTO 920 

PRINT "Perdu.C'était 3." à BEEP 2500 
RETURN 


CS 
KA 







# 


| 


[he > 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des 
fichiers Lex parus ce mois-ci. 


Rappelons ce qu'est un fichier Lex : c’est un programme pour le HP71, en 
assembleur, qui apporte de nouvelles fonctions. Celles-ci sont utilisables directement, 
ou dans des programmes Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer 
vous-même en assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer 
et de recopier les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles 
fonctions sont accessibles, après avoir éteint et rallumé votre HP71. 


Si l'erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 
Vous trouverz donc, outre le Lex SAISYLEX de la rubrique assembleur, le Lex 
CHARLEX nécessaire à la rédaction de votre article (voir "Ah ! Vous écrivez !"). 
CHARLEX 


SAISYLEX  FINPUT 225093 


10 CALL MLEX à SUB MLEX à SFLAG -1 Q PURGE AH à INPUT "Nb. d'octets: ";N @ LC OFF 

20 CREATE DATA AH,1,N-4 @ A=HTD(ADDRS(!"'AH")) à B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",P$:A$ à C$=A$ à S=0 à GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à A$S=AS&CS à A=A+37 à N=N*2+37 à Q=3 à SFLAG 5 à FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=CS[S*FLAG(5)+1] à POKE DTH$S(A),C$ @ A=A+16-5*FLAG(5,0) à NEXT X à Q=4 


60 DISP DTHS(X)[3]: à INPUT ": ",P$[1,MOD(N,16)]1;C$ à GOSUB 90 
70 POKE DTHS(A),CS à POKE DTH$(B),A$ à CFLAG -1 à END 

80 DISP DTHS(X)[31: à INPUT M: ",P$:C$ 

90 DISP DTHSCX)[3]: à INPUT " sm ","---n:D$ 


100 M=S à FOR Z=1 TO LEN(CS) à M=NUM(CS[Z] )+M+1 @ NEXT Z 

110 IF DS=DTHS(MOD(M,4096))[3] THEN GOSUB 130 à S=M à RETURN 

120 DISP "Erreur de somme" à BEEP à P$=C$ à POP à ON Q GOTO 30,40,50,60 
130 P$=u----..-......... " à RETURN 
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CHARLEX ID#E1 624 octets 036: 084E794142400000 1EE 01A: 351121CD1378B6C1 F40 


037: 00000000002E4559 52C 018: 13510B3D14A305E4 2BA 

0123456789ABCDEF sm 038: 3200000000000000 841 01C: 94640215DD001BB8 63E 

039: 0000000000000026 B59 01D: 9F215A03010E0690 9AE 

000: 34841425C4548502 35E 03A: 5556587008365556 EB8 01E: 85B110D231908A2E D32 
001: 802E008012713078 6B2 03B: 5810083645464830 209 01F: 131608A2D031F08A OAF 
002: 5E4001E000000000 9F6 03C: 0832414248700024 54A 020: 28000679061911BE 418 
003: FE0000000800001F D50 03D: 5655587008345655 8A7 021: 74F2AF014AE4D881 7C6 
004: F31BF961400032BF 0E3 03E: 5810083446454830 BF6 022: C81C34755F2E2134 B54 
005: 38F14A11DB10AD23 47D 03F: 0C3042414C700024 F4B 023: D431F5B6249CAEAA F1D 
006: 07D532BFB8FD7911 830 040: 5556587008355654 2A8 024: E831300E66962A22 298 
007: 11AD754D7A101743 BB3 041: 5810083546444830 5F7 025: 1A6C4C023A6C4402 623 
008: 11014D1CB15D0000 F1E 042: 0C3142404C700025 94D 026: 780CF2015240E469 9A1 
009: 71450375FF864834 29B 043: 5455587008355455 CA7 027: 469218081D81D5F0 D24 
O0A: 5655581008355654 5F2 044: 5810083544454830 FF5 028: 1564B46531180A6D 09D 
00B: 5810002455565870 93F 045: 0C3140414C700875 357 029: 5FE8408210100769 40B 
00C: 0026555658700836 c91 046: 14141870000A4972 6A8 O2A: O31FS5AES1FE35F2A 7C2 
00D: 5556581008364545 FE7 047: 40000€3159454E30 A08 028: F01B045F26F2094C BSA 
00E: 4A30000449724000 33A 048: OC7A0F7949400024 D80 02C: COB441564160AC50 ED7 
00F: 0808094A2C180814 6A3 049: 5554587000084A71 ODC 02D: E4494DD014F96E31 27C 
010: A464242008355455 9FD 04A: 40000C523A262D10 43D 02E: AE41C1A44A6D50D0 628 
011: 581000054C714000 D43 04B: 0424587458400875 794 02F: O96CSO0AE41BE74F2 9D4 
012: 0C3142404C700832 09F 04C: 1415187000094A70 AE&4 030: B64148193714EB6E D68 
013: 41414A70002078A0 3F7 04D: 4000083544454830 E28 031: S550AE219C714C198 OF8 
014: 2F30000000000000 722 O4E: 0C3140414C300C74 190 032: 715630A84B841091 464 
015: 0000000000000000 A32 04F: 5655545000054C71 4E7 033: 5436F5F1B476F214 7F8 
016: 0000000000000000 D42 050: 40000 5E0 034: 28A800DB10B248FD B9C 
017: 0000000000000000 052 035: D41018874F230115 F17 
018: 0000000000000000 362 SAISYLEX ID#E1 2226 octets 036: C0313070202018B7 278 
019: 0000000000000000 672 037: 4F230015C0248F8A 5FD 
01A: 0000000000000000 982 0123456789ABCDEF sm 038: 41011BD701AEA1B4 990 
018: 0000000000000000 c92 039: 76F214606011F969 D06 
01C: 0000000000000000 FA2 000: 3514943595C45485 36D O3A: F2AC215541707200 074 
01D: 0000000000000000 2B2 001: 802E009012713078 6C2 038: F007145850821013 3C7 
01E: 0000000000000000 5C2 002: 961101ED5D500000 A2B 03C: 0E1BB89F215A00E0 766 
01F: 0000000000000000 8p2 003: F7100BF006410000 D8C 03): 615C000D77621136 ACA 
020: 0000000000000000 BE2 004: 063500DB6494E405 105 035E: 137134DB7711D015 E3D 
021: 000000000000080€ FOD 005: 5545D51FF8DF3E20 4BA 03F: B3E4E4C4D81338D8 1F2 
022: 1A28080008080A2C 277 006: 7F708FB39408FEA2 874 040: 03108F681F0AF131 575 
023: 180008040E340800 5C0 007: 304008DC5E208598 BF4 041: F196603172763117 8D7 
024: 08001E3018000000 8FA 008: FB323076DF7C5087 F99 042: 77D311C378211C41 C&F 
025: 0000000000000000 COA 009: 38c79cCF13610A134 324 043: 57494E9023B15201 FBA 
026: 0000000000000000 F1A O0A: D28F82D207D30873 6B8 044: 7D5C331F0966768F 35A 
027: 0000000000000000 22A 00B: D111A136AC0A4C15 A4C 045: 83DB034000028BEB 6E5 
028: 0201000000010200 540 00C: 04134779F7D10870 DCO 046: 581C1C31593D872D A78 
029: 0000000201020000 855 00D: C086370831908D66 138 047: 0137135D579C0E51 DF3 
02A: 0001000100000002 B69 00E: E208D0271308D9DF3 4DA 048: 371F995F21451FAF 198 
028: 0102010000000000 E7D 00F: 031C28D5EC207920 860 049: 8F21432391490201 4F2 
02C: 0000000000000000 18D 010: 7DEF712075EF1707 C06 O4A: 35012033601E8DA9 865 
02D: 045E755142400101 4D9 011: 6108FCE25073DF77 FAC 04B: 3908D6CC7131528D BF8 
02E: 0101010000000000 7EC 012: 008D003508D22950 30E 04C: 393901BFD8F26630 F8C 
02F: 0000000000000000 AFC 013: 407001604324496D 664 04D: 1B2D8F26B201B5C8 332 
030: 0000070507000000 E1F 014: 637C5140ECE50527 9F1 O4E: F260201BB88F2651 6BB 
031: 00000000083444C4 15D 015: F6D60747C5150ECE DA4 04F: 01BE/78F26A001B17 A4C 
032: 44400D7901112D70 4BD 016: 564F627D61647CF0 13D 050: 8F2CED5AF2D9168A E23 
033: 050D750509700000 807 017: 702651627E8ECFF3 4E5 051: FO15A3E4E47A92C4 1CF 
034: 0D70000000384540 B4A 018: 1B19616431BF9619 868 052: 184146C213401D21 52C 
035: 4020014E322E3140 ESE 019: 09698000662211B1 BBD 053: SE3E6E6C6132C213 8C7 


JPC 43 Page 47 





054: 401BF1BF1BF1BF1B C92 08E: 91BB98F21467CEBD F57 OC8: 8E157F1FB98F2147 156 


055: F1017EEFD215F3C1 0O4A 08F: AD231B1C21D7B145 2F2 0C9: CEBAA6O6AEB11B13 514 
056: 017DDF147D501F8B 3F6 090: 134AC215441BB98F 68A OCA: 48F681F08F8BB811 8BF 
057: FFAOBFF8F725F05F 7DE 091: 21467ECBE6E6E6E6 A54 OCB: BFD8F2AF4150716F C80 
058: 033701E8DA939013 B57 092: 1DAA1451BB98F214 DF8 OCC: 1371441641FBA8F2 009 
059: 613513030E170153 EA3 093: 67CBBD015A3D2310 194 OCD: 14714416417E15F0 372 
O5SA: 0906E01701431315 1F1 094: 68BAD031528D3939 528 OCE: 15C01FAF8F214710 706 
058: AE1C0AF114B31F19 59E 095: 01DFA14971DB1D1B 8D8 OCF: 88EAF7/FD215E3D5D AEOQ 
05C: 66C3172798F17770 91E 096: 1457460DA0600B00 C40 0D0: 231068B1801635E3 E46 
05D: 9F133131E0D81C37 CAB 097: 780160207CB07B40 FBB 001: 33401E8DA939014A 1CE 
05E: 17F1C4157494E902 O02C 098: 490E003007EBO06EE 34E 0D2: 968DE31B19624E31 563 
05F: 3B15206E4068BE31 3B1 099: F7AF07230E42600B 6E1 0D3: D0O962BD31A09622D 8FA 
060: F0966B1172764F17 738 O9A: 0079D06EEF7A8079 A8B 0D4: 31809629C161A6D5 C7B 
061: 77D4F133E0D86A10 AD4 098: 10260600B0070D06 DDD 0D5: DC118CE8AE491F1C O4A 
062: 31FF9663D176742F E71 O9C: 5DF748066EF1FO0A8 196 OD6: 6F2D2E61451B2D8F 3FA 
063: 1C47B2FBF1BF1BF1 245 090: F2147CE1454451D5 523 0D7: 21FO045F2AF215DF1 79E 
064: BF1E5AF91F178F21 608 O9E: A147CECE 14513514 8B8 0D8: 7F15D71F1C6F2147 B41 
065: 5DC24A82201EAF8F 9C2 09F: BB8FAA25131059629 C45 0D9: 8ED67FD215E3D78E F11 
066: 1458FBF190161739 D47 0A0: 23155962028F670B FB5 ODA: 987FDB132602006C 290 
067: D1FE78F2AF4159C1 10C 0A1: 15F033501E8DA939 344 ODB: CCCD60613014A8FE 652 
068: 611524160948A172 466 OA2: OD2E6540D2E6540D 6DC ODC: 3C1007DA07CES50E8 9F6 
069: 7D16113610B69C08 7E0 0A3: 28D624203103B6A1 A49 ODD: 401B1C6F21468E9F D96 
06A: D4058113610B8FE4 B6A 0A4: FEBB8F214901AE81F EOA ODE: 6F1631F045F215EF 135 
06B: 5911BE78F2D215E3 FOC OAS: EB8F214B31A09E65 1B6 ODF: 15DFB7655085016F 4C8 
D6C: 1950C144762ED015A 296 0A6: BAG4AEGAGEAGEAGA 581 0E0: 17F15E715D727816 85B 
06D: 38FFACE004814814 634 0A7: 3103B61A6014901A 8E8 0E1: 204508408FFD1518 BD9 
06E: 8148148F064A1304 99F 0A8: E2B661FEB8F214D3 CA7 0E2: 70071BB89F215A03 F5F 
06F: 8163103A62D07F9F D2E 0A9: 155B6296A80AE2B6 044 0E3: 010E0E15808F99C4 2EF 
070: 810A4E5CE31057E8 OCB OAA: 61F0C8F215D0DA1D 3F8 0E4: 130E8161BB89F215 678 
071: F3155768FD23071C 45E OAB: EB14F67006A5F96A 7A9 0E5: 240E46154454C8F3 9FB 
072: 315D31B5C8F2146C 7F7 OAC: 001F3C8F215901D1 B2B 0E6: E320D0081E0201F0 D70 
073: EBAEO9AF1307A851 BA&4 OAD: C14D1FCB8F214F96 EED 0E7: F8121D8031570416 0D9 
074: 371357AFDD51BE78 F59 OAE: ABDA6E14D1FFF8F2 2D2 0E8: 80513C0813510060 42F 
075: F2D215E37AEDC18F 328 DAF: 14F1F3C8F296EC0A 692 0E9: 9F8FAB2514E18FE2 7F6 
076: 8BB811BFD8F2AF41 6F6 0B0: 80804159015B0908 9F8 OEA: 1205D008F127006EE B7A 
077: 58C8F53410AF2324 A83 0B1: 721F6B8F215741D7 D8D OEB: F8FEE010D48F3E32 F3C 
078: A11BAF8F2AF01427 E34 0B2: B14713515340E4E1 100 OEC: 062321B25A0E2231 2A1 
079: 520D197D911B495F 1C9 0B3: 51469401FFA8F214 490 OED: 23030338102A9503 5EC 
07A: 2146C21641428B60 52D 0B4: F96A921D18147135 81E 0EE: A660366F000633F7 967 
078: 18DD44908DBBCE01 8E8 0B5: 1C114B1FAA8F2147 BBF OEF: D601F1C6F2143E45 DO0 
07C: 841421441BAF8F21 C6F 0B6: 134E6E61451481FF F51 OFO: 217A501F1C6F2143 081 
07D: F5C8F2AF1D231C0D 036 0B7: F8F214FA6E14D1F1 30F OF1: CCD2E68BE4O0DAÎBA 464 
07E: 57E5DD87B5D146C1 3ED 0B8: B8F2147CECE1451D 6CC OF2: F8F21468BA40DA14 80E 
07F: AF915DC17CAF231C 7B5 0B9: FA14FA6E45014D1D A81 OF3: 1683E77201F1C6F2 B9E 
080: 1AFED7AF214678AF B87 OBA: 6BD215F081E90EB1 E2A OF4: D0E459E75101F1C6 F3C 
081: CBDAAF1D23106D57 F49 0BB: 3081D7B143CC1411 1A8 OF5: F21BAF8F214261DF 2F6 
082: 02DD87D1D146C1AF 301 OBC: 31AC015141F6B8F2 53A OF6: 8E1D3F80692207FE 6B2 
083: 915DCAF2314CAFED 6DB OBD: 15D01D1C14FA6E96 8E3 OF7: F8F015001B1C6F21 A42 
084: 7AF21467D6FCBDAT AAB OBE: AOD6DEE 1FOC8F215 C98 OF8: 468E965FD015A3D8 DED 
085: DB8AF1D23106D571 E&4F OBF: B01FCB8F214F7DBE 073 OF9: 8E795FD231068BD4 197 
086: ECD87EDC146C1AF9 235 OCO: 1FB98F214778D81D 421 OFA: 0D51F084F2691018 514 
087: 15DC1FAF8F21471D 5F1 OC1: AA143131EECECECE 802 OFB: 114A14F17196A419 88D 
088: B91451FB98F21477 98B OC2: CEADODA81C158316 BB8 OFC: 66FO0CD57E14F96A1 C43 
089: 23C1FO0A8F2D215E3 D2F OC3: 3AF1D882281D136C F55 OFD: 11BE78F26890708F FF3 
O8A: 145768C1D5A14530 DA9 OC4: 9cC91341358327151 2B6 OFE: D0642172501BAF8F 38A 
08B: 81D6B1550D231061 41A OC5: 110C114A14F14914C 633 OFF: 2146CE8AAA067FE7 749 
O8C: DCB14D1BA78F2D01 7DC OCé: 161CD5BE1FB98F21 9F1 100: 9301FAF8F2147108 AD8 
08D: 5A38B240DA1DFF14 B90 OC7: 471F2D8F21BE78F2 DAB 101: 1BB88F21F178F28E E91 


RE 


102: 
103: 
1084 : 
105: 
106: 
107: 
108: 
109: 
104: 


3B3F118CE8AE1E1F 
1C6F21436EC01B1C 
6F21468E484F1FE3 
5F2D231065D014B9 
6CB0O1C1A6ES 1FB66 
15C31635E014B148 
1C1161A6E50F70DE 
8FE45918508FBD58 
18F83DB0171CCCC1 


25C 
5FB 
9A6 
Dec 
0E2 
456 
7FA 
BAE 
F64 


10B: 
10C: 
10D: 
10E: 
10F: 
110: 
111: 
112: 
112 


001BA78F2D215E3C 
68B6831B1C6F2146 
8E014F118ADO0DA81 
C1583163132133DE 
136C68D771813152 
8D393901B9F8F21F 
AB8F215E015D0184 
1CE1461451841461 
3518F1567AF58F0B 


306 
697 
A3C 
DBO 
12c 
4D9 
86E 
BD5 
F7B 





113: 
114: 
115: 
116: 
117: 
118: 





3518F1567AF58F0B F7B 
7FO8FE45911BB88F 339 
2D21448FB1381041 6B6 
CF15178F8BB818F8 A76 
F5FO08F015008FA8C E25 
418D84A80 024 
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PPC PARIS CHAPTER 


ASSOCIATION REGIE PAR LA LOI DE 1901, ENREGISTREE 
À PARIS LE 2 DECEMBRE 1982 SOUS LE NUMERO 82/3240 


BULLETIN D’ADHESION 


NOM ES 


| 
| 

=. mn nt Det ei Cut Coun vume 
| 

ER RER NS ARTE ORNE CRE SRE He 
| 

Mn es enr ‘auf ous taie. dus: ous 
| 
| 


PROFESSION 
INTERETS 


MATERIEL HP EN VOTRE POSSESSION 

————————————————— Ze 
—————————————————————______————————— 
AUTRE MATERIEL MICRO- INFORMATIQUE 


2220202000 
2222222 
D 


COMMENT AVEZ-VOUS CONNU PPC PARIS CHAPTER ? 
PUBLICITE MAGAZINE 
AUTRE CLUB 

RELATIONS, MEMBRES DU CLUB, AUTRES 


QUE RECHERCHEZ-VOUS AU SEIN DU PPC PARIS CHAPTER ? 


Je souhaite adhérer au club PPC PARIS CHAPTER conformément aux statuts de 
l'Association. Au mieux de ma connaissance, je déclare avoir Le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d'autres personnes ou 
organismes) pour publication dans Le Journal de liaison, sans obligations ni 
responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de La part des 
dirigeants de PPC-Paris. 


DATE |_|_[/1_1_1/191 [| 
SIGNATURE, PRECEDEE DE LA MENTION "LU ET APPROUVE" 


LE MONTANT DE LA COTISATION AU PPC PARIS CHAPTER S'ELEVE A 300.00 FF. 
ETUDIANTS: 250.00 FF. (JUSTIFICATIF INDISPENSABLE) 
PAIEMENT EFFECTUE LE |_|_]/|_|_|/19|]_|_| A L'ORDRE DE PPC PARIS CHAPTER. 
PAR [ ] CHEQUE BANCAIRE N° BANQUE 
[ ] CHEQUE POSTAL 3 VOLETS N° 
[ ] MANDAT LETTRE 
EVENTUELLEMENT: JE M'ABONNE A COMPTER DU |_|_]/|_|_|/19!_|_| 


VEUILLEZ ENVOYER TOUTE CORRESPONDANCE A : 
PPC-PARIS, 56 RUE J.J. ROUSSEAU, 75001 PARIS (FRANCE) 





Le Journal JPC est le bulletin de liaison 
entre les membres de  l’Association 
"PPC-PC", régie par la loi de 1901. Le Club 
est éditeur du JPC, et son siège social est 
au 56, rue Jean-Jacques Rouseau, 75001 
Paris. 


La maquette de ce numéro a été préparée 
et réalisée par Pierre David, Jean-Jacques 
Dhénin et Janick Taillandier, grâce à un 
système comprenant un HP71B, deux 
lecteurs de disquettes HP91I14A, une 
imprimante HP2225B et une imprimante 
LaserJet. 


Directeur de la publication : Philippe Guez 
Numéro ISSN : 0762 - 381X 





ENGLISH SUMMARY 


JPC 43 - AVRIL 1987 


This issue is bigger than usual. The reason is to be found from 
page 16 to page 41. This paper describes ä new , very 
sophisticated statement for the HP-71B providing formatted:-input 
capabilities ("à la" INPUT USING). The source files are presented 
in à way similar to the IDS Vol, III format. This is intended to 
help you study the code if you wish. Any feedback on this 
statement is welcomed. 


Our first HP-28C program is presented by Pierre David on page 6. 
Its purpose is to simplify the expression expanding process. 


Guy Toublanc, in his series about "approximations of real numbers 
by fractions", gives you his HP-41 version. 


You will find a presentation of a lesser known peripheral for the 
HP-75 : the PMS. Eric Gengoux tells us all secrets about the 
device itself, the keywords to drive it and the problems he has 
encountered. 


Given a problem (permutations in a set), Alain Herreman describes 
two ways to solve it. He uses two different algorithms, and a 


base conversion program. Follow him in this approach. 


Last, Alain Gillet, a beginner, try to help his fellow beginners 
with programming a simple game. 


Happy reading. 


De 


ve 


AZ 


. 


